$ perl -MBenchmark -lwe "my$x=q//; print timestr(timeit(eval($ARGV[0]),sub{$x .= (q/x/ x 1000);}));" 10_000
32 wallclock secs (20.41 usr +  9.34 sys = 29.75 CPU) @ 336.13/s (n=10000)