Select Code to Download

#! perl -slw
use strict;
...
loop            1.14/s      3006%         8%         --       -53%
one_eval        2.44/s      6515%       130%       113%         --

perl -MTime::HiRes=time 
-E"$m=1e5;$x='x'x$m; $t=time; $n=()=$x=~m[x]g; say +(time()-$t)/$m"
...
perl -MTime::HiRes=time 
-E"$m=1e6;$x='x'x$m; $t=time; $n=()=$x=~m[x]g; say +(time()-$t)/$m"
1.46089999675751e-005