in reply to Broken regexp
join "|" => map {length () ? $_ : '\N'} split /[|]/ => $line, -1; [download]
$line =~ s'[|](?=[|])'|\N'g; [download]
Abigail