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