my $line_count=1;
while (<FILEHANDLE>)
{
   print $line_count++, " :$_"; 
}

##</code><code>##

$/ = undef;
my $lines = <STATFILE>;

##</code><code>##

my $lines = do { local $/; <STATFILE> };