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