I doubt it's efficient but this just looks too wierd not to mention.

my $lines = do{
        my $file_name = 'in.txt';
        open my $fh, $file_name or die "$file_name: $!";
        () = <$fh>;    };

print $lines;
[download]

HTH,
Charles K. Clarkson