chomp(my $be = ); chomp(my $n = ); chomp(my $af = ); my $be_num = $be =~ s/o/o/g; my $af_num = $af =~ s/o/o/g; my $result; if (not $be_num == $af_num){ $result = "SUCCESS"; } else { if (not $n == 1) { $result = "FAILURE"; } else { my $impo = impossible($be); $result = $impo == $af ? "FAILURE" : "SUCCESS"; } } print "$result\n"; sub impossible { my $t = shift; return "oxo" if $t eq "oxo"; return "xox" if $t eq "xox"; return "oox" if $t eq "xoo"; return "xoo" if $t eq "oox"; return "xxo" if $t eq "oxx"; return "oox" if $t eq "xoo"; }