Select Code to Download

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

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