Select Code to Download

use strict;
use warnings;
...
    return "Partial match found at $bestMatch[0] for $bestMatch[1] cha
+racters\n" if @bestMatch;
    return "No match found for $word in $seq\n";
}

Partial match found at 8 for 20 characters