Select Code to Download

use strict;
use warnings;

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