Select Code to Download

#!/usr/bin/perl

...
    } );
  print "\n";
  }

compare 'TTTATTT' to 'TTTTTTT', differences are 'A'@3->'T'@3
compare 'TTTTTTT' to 'TBTTTTT', differences are 'T'@1->'B'@1