use strict;
use warnings;

my $longstring = "first<!--NEWENTRY889700-->second third<!--NEWENTRY867530-->last";
my @entries = split /<!--NEWENTRY(\d{6})-->/, $longstring;
print "@entries\n";