01    my ( $pattern, $mismatches_allowed ) = @_;