open (LOG,"Messages.log");

while (<LOG>){
       $string .= $_;
       } 

@array = split(/^\s*$/, $string);