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


in reply to Re: Solutions
in thread How's your Perl?

In 10 chars?
while(){foo} # 12 chars foo while 1 # 11 chars