while (my $l = ) { chomp $l; print $l; }