#! perl -slw
use strict;

my $file = 'test.txt';

open DF, '<:raw', $file or die "$file : $!";
my @test = split "\n", do{ local $/ = \ -s( $file ); <DF> };
close DF;