(while ) { chomp; print "$_\n"; # prints the current line. }