Select Code to Download

#!/usr/bin/perl

...

print "compare $b to $c, difference is ",
  $b =~ s/[$c]+//gr, $c =~ s/[$b]+//gr, "\n";

compare TTTATTT to TTTTTTT, difference is A
compare TTTTTTT to TBTTTTT, difference is B