Select Code to Download

#!/usr/bin/env perl -l

...
cmpthese $r;

done_testing();

 with_chop:  5 wallclock secs ( 5.19 usr +  0.00 sys =  5.19 CPU) @ 19
+2.79/s (n=1000)

...
with_split  76.0/s          --        -48%        -61%
with_substr  145/s         91%          --        -25%
with_chop    193/s        154%         33%          --