Help for this page
$line =~ s:\|\|:\|\\N\|:g
#!/usr/bin/perl -w use strict; ... $line =~ s/\|\|/\|\\N\|/g; print qq(New line = $line); }