# shortest print "$_" while ; # show what you mean { local $\ = ""; print while ; } # more readable? foreach my $line () { print $line, ""; }