open( IN, '<', $filename ); # input open( OUT, '>', 'newfilename.txt' ); # output while ( ) { s/\|\|/|\\N|/g; print OUT; } close IN; close OUT;