my $abc = "AABCBAABCCCCAB";
my $ab  = "AABABAABABABAB";
(my $abca = $abc) =~ y/C//d;
$abca eq $ab and say "THAY MATCH!";