Help for this page

Select Code to Download

Select or download this
```
$line =~ s/\t([\t\n])/\t\\N$1/g;
```

Select or download this

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