in reply to Multi-Line Input

You loop until input equals 'q' or empty line

In Section Seekers of Perl Wisdom