Select Code to Download

#!/usr/bin/perl -w

...
hello(what(is(this(all(about))))) 4
hello(what(is(this(all(about))))) 5
hello(what(is(this(all(about))))) -1

Benchmark: timing 15000 iterations of his, mine, mine-less-lgnt, other
+...
       his:  5 wallclock secs ( 4.94 usr +  0.00 sys =  4.94 CPU) @ 30
+36.44/s (n=15000)
      mine:  5 wallclock secs ( 4.94 usr +  0.01 sys =  4.95 CPU) @ 30
+30.30/s (n=15000)
mine-less-lgnt:  3 wallclock secs ( 3.43 usr +  0.00 sys =  3.43 CPU) 
+@ 4373.18/s (n=15000)
     other: 22 wallclock secs (20.89 usr +  0.03 sys = 20.92 CPU) @ 71
+7.02/s (n=15000)