Statement Perl

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