# perl -v

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

# perl -MBenchmark -lwe 'my$x=q//; print timestr(timeit(eval($ARGV[0]),sub{$x .= (q/x/ x 1000);}));' 10_000
 1 wallclock secs ( 0.06 usr +  0.00 sys =  0.06 CPU) @ 158730.16/s (n=10000)

#  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)