Bad use of split. The first arg of split is a separator. You want //g.

my @parts = $text =~ /START((?:(?!START|END).)*)END/sg;
[download]