#!/usr/bin/perl -w
use strict;

my $longstring="first<!--NEWENTRY889700-->last";
my @entries=split(/<!--NEWENTRY\d\d\d\d\d\d-->/,$longstring);
print "$entries[0] $entries[1]\n";