$line =~ s'[|](?=[|])'|\N'g;