in reply to do-while loop

do { ... } while $reply !~ /^[a-z]$/;

[download]

In Section Seekers of Perl Wisdom