# test.pl
while (my $line = <>) {
  chomp $line;
  print qq{$line\n}; # yes I know, pointless use of chomp
}