Help for this page

Select Code to Download

Select or download this

use String::Approx 'amatch';
use re 'eval';
use re 'debug';
...
               (?s:@{[ q[.] x $match_len]}) |
               (?!)))";
}

Select 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]}) |
#               (?!)))";
#}