my @parts= split /start/,$string;
shift @parts;

foreach (@parts) {
    print "start$1\n\n" if (m{^ (.*? end ) }xms);
}
[download]