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