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

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