$line=join('|',map(defined($_) ? $_ : '\N', 
                   split('|',$line)));'

##</code><code>##

$line = join '|', map { length() ? $_ : '\N' } split /\|/, $line, -1.