Instead of splitting, you can also extract what you want:

my @parts = $string =~ /([^:\\]*(?:\\.[^:\\]*)*)(?(?{length $^N})|(?!)
+)/g;
[download]

Abigail