Use the UNTIL loop to form a Loop-then-Test loop construct Used most often for loops with a non-numeric-range test do { $line = <STDIN>; print "ECHO: $line"; } until ( $line eq "\n" );
do { $line = <STDIN>; print "ECHO: $line"; } until ( $line eq "\n" );