Select Code to Download

#!/usr/bin/env perl

...
print "Matches: $match\nMismatches: $mismatch\nPercent match: ",
      sprintf("%.01f", ($match / $s1len) * 100),
      "\n";

Matches: 12
Mismatches: 1
Percent match: 92.3