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

##</code><code>##

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