programming-examples/perl/Statement/Using until with print statement.pl

print "Please enter more text (q to quit).\n"  until (<> eq "q\n");