my @entries = split /(<!--NEWENTRY\d{6}-->)/, $longstring