Instead of splitting away what you don't want, consider matching what you want to keep:

my @code = ($id =~ /([^|\\]+|\\[|\\])/g);
[download]

Also see Text::CSV_XS.