my @myfile = <File>;
my $lines = @myfile;

##</code><code>##

undef $/;           # enable "slurp" mode
$_ = <FH>;          # whole file now here