open (LOG,"Messages.log"); while (){ $string .= $_; } @array = split(/\n{2,}/, $string); # note the new pattern