sub fuzzyMatch {
    my( $rHay, $rNee, $misses ) = @_;
    my $lNee = length $$rNee;
    my $min = $lNee - $misses;

    map {
        (
             ( substr( $$rHay, $_, $lNee ) ^ $$rNee ) =~ tr[\0][] 
        ) >= $min ? $_ : ()
    } 0 .. length( $$rHay ) - $lNee;
}