Select Code to Download

Select or download this

#!/usr/local/bin/perl
use strict;
...
                greedy => sub { greedy( $string ) },
                capture => sub { capture( $string ) },
               } );

Select or download this

:!./test.pl
Reversed: <<HTML>;nbsp dont_strip_me</HTML>> <xyzfdgfghgf>
...
   capture: 10 wallclock secs (10.40 usr +  0.01 sys = 10.41 CPU) @ 53
+160.52/s (n=553401)
    greedy: 10 wallclock secs (10.52 usr +  0.00 sys = 10.52 CPU) @ 21
+887.07/s (n=230252)
  reversed: 11 wallclock secs (10.54 usr +  0.01 sys = 10.55 CPU) @ 36
+366.92/s (n=383671)