# Keep getting user inputs until user enters quit. while ( $nextVar = <STDIN> ) { chomp $nextVar; if ( $nextVar eq "quit" ) { last; } print "You entered $nextVar\n"; }