use IO::File ();
my $fh = IO::File->new($filename,'r');

### slurp it in
my $txt;
read($fh,$txt,-s $filename);

my $LS = ($txt=~s/^(LINESCORE(.+?)\n\r?\n)//s) 
  ? $1 : '';