Select Code to Download

#!/usr/bin/perl -w

...
hello(what(is(this(all(about))))) 3
hello(what(is(this(all(about))))) 4
hello(what(is(this(all(about))))) 5

Benchmark: timing 25000 iterations of mine-elegant, mine-less-elegant,
+ original, original++...
mine-elegant:  8 wallclock secs ( 8.20 usr +  0.00 sys =  8.20 CPU) @ 
+3048.78/s (n=25000)
...
mine-less-elegant:  6 wallclock secs ( 5.22 usr +  0.02 sys =  5.24 CP
+U) @ 4770.99/s (n=25000)
  original:  9 wallclock secs ( 8.33 usr +  0.00 sys =  8.33 CPU) @ 30
+01.20/s (n=25000)
original++:  8 wallclock secs ( 7.88 usr +  0.02 sys =  7.90 CPU) @ 31
+64.56/s (n=25000)