in reply to Re: Solutionsin thread How's your Perl?
while(){foo} # 12 chars foo while 1 # 11 chars [download]