join "|" => map {length () ? $_ : '\N'} split /[|]/ => $line, -1;

##</code><code>##

$line =~ s'[|](?=[|])'|\N'g;