chomp(my @lines = <INPUT>);

# or

print OUTPUT @lines;