Select Code to Download

sub xarg       { my $tmp = $_[0]; length $tmp }
sub xarg_shift { my $tmp = shift; length $tmp }

Benchmark: running arg, arg_shift, noarg, noarg2, xarg, xarg_shift for
+ at least 10 CPU seconds...
       arg: 10 wallclock secs (10.52 usr + -0.01 sys = 10.51 CPU) @ 48
+9653.09/s (n=5146254)
...
xarg       337761/s       20%       18%        13%        --      -19%
+      -31%
arg_shift  414663/s       47%       44%        39%       23%        --
+      -15%
arg        489653/s       73%       70%        64%       45%       18%
+        --

$"=$,,$_=q>|\p4<6 8p<M/_|<('=>
.q>.<4-KI<l|2$<6%s!<qn#F<>;$,
.=pack'N*',"@{[unpack'C*',$_]
}"for split/</;$_=$,,y[A-Z a-z]
         {}cd;print lc