use warnings;
use strict;

while(<DATA>){
    my $line = $_;
    print $line;
}
__DATA__
Line 1
Line 2
Line 3