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