Select Code to Download

#!/usr/bin/perl
...
                   }
         );

Benchmark: timing 100000 iterations of rev 100, rev 1000, rev 10000...
...
            (warning: too few iterations for a reliable count)
  rev 1000:  1 wallclock secs ( 0.87 usr +  0.00 sys =  0.87 CPU) @ 11
+4942.53/s (n=100000)
 rev 10000:  8 wallclock secs ( 7.65 usr +  0.00 sys =  7.65 CPU) @ 13
+071.90/s (n=100000)