This is PerlMonks "Mobile"

Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  


in reply to The STEM quote I most wish I'd made is:

I used to say "Give me a fulcrum and I shall move it." As I was a young anarchist those times, it was more a political statement than STEM, though.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]