my $hay = ...;
my $nee = 'AGGATACGCCAC';
substr(  $hay, $_+4, 1 ) eq 'T' and print substr( $hay, $_, length( $nee ) ) for fuzzyMatch( \$hay,  \$nee, 3 );