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