#Store the file in an array, split by newlines
while (<LOG>){
       $string .= $_;
       }

@array = split(/\n/, $string);