my @list=split /\n/,do {local $/; <$fh>};

##</code><code>##

my @list=<$fh>;