Help for this page

Select Code to Download

Select or download this

use Regex::PreSuf;
die presuf(split /\|/, 'new|old|number|start|simple|cross|heavy|die|ex
+it'),$/;
__END__
(?:cross|die|exit|heavy|n(?:ew|umber)|old|s(?:imple|tart))

Select or download this

use Benchmark 'cmpthese';

...
straight 1963/s       --     -16%
optimial 2324/s      18%       --