Select Code to Download

>perl -v

This is perl, v5.10.0 built for MSWin32-x86-multi-thread
...

>perl -MBenchmark -lwe "my$x=q//; print timestr(timeit(eval($ARGV[0]),
+sub{$x .= (q/x/ x 1000);}));" 10_000
64 wallclock secs (37.05 usr + 25.88 sys = 62.92 CPU) @ 158.93/s (n=10
+000)

# perl -v

This is perl, v5.10.0 built for cygwin-thread-multi-64int
...

#  perl -MBenchmark -lwe 'my$x=q//; print timestr(timeit(eval($ARGV[0]
+),sub{$x .= (q/x/ x 1000);}));' 100_000
 1 wallclock secs ( 0.61 usr +  0.03 sys =  0.64 CPU) @ 156006.24/s (n
+=100000)