#!/usr/bin/perl -w

use strict;
 
open INPUT, 'try.asc';
 
while(my $line=<INPUT>)
{
print qq(Original line = $line);
$line =~ s/\|\|/\|\\N\|/g;
print qq(New line = $line);
}