http://www.perlmonks.org?node_id=500550

One-Liners

 ~ $ perl -e '{print++$n." sweet perl loops\n";redo}'
Nodes of interest:
=d(o_o)b=