my @entries = $longstring =~ /^([^<]*)<!--NEWENTRY(\d+)-->([^>]*)$/;