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