C:\test>p1
$abc = "AABCBAABCCCCAB";;
$ab  = "AABABAABABABAB";;
( $abca = $abc) =~ y/C//d;;
$abca eq $ab and say "THAY MATCH!";;

print $abca;;
AABBAABAB