$line =~ s/\t([\t\n])/\t\\N$1/g;

##</code><code>##

while (my $line = <DATA>) {
    $line =~ s/\|(\||$)/\|\\N$1/g;
    print $line;
}
__DATA__
a|||d|