my @entries = $longstring =~ /(.*?)(?:<!--NEWENTRY(\d+)-->|$)/g;