#!perl
use strict;
use warnings;
my @raw;
while( my $input = <> ) {
    chomp $input;
    push @raw, $input;
}
print "@raw\n";