#!/usr/bin/perl -w 
use strict; 
my $input=''; 
my @raw=(); 
while(defined ($input=<>)){ 
    chomp($input); 
    @raw=$input; 
} 
print "@raw\n";

##</code><code>##

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

##</code><code>##

#!perl

use strict;
use warnings;

while( <> ) {
    chomp;
    print;
}
print $/;