Help for this page

Select Code to Download


  1. or download this
    use String::Approx 'amatch';
    use re 'eval';
    use re 'debug';
    ...
                   (?s:@{[ q[.] x $match_len]}) |
                   (?!)))";
    }
    
  2. or download this
    # This version wasn't very nice so I replaced it and commented it out.
    #use String::Approx 'amatch';
    #use re 'eval';
    ...
    #               (?s:@{[ q[.] x $match_len]}) |
    #               (?!)))";
    #}