Help for this page

Select Code to Download

Select or download this
```
$line =~ tr/\t\n\r"/\x09\x0A\x0D'/;
```

Select or download this

$line =~ s{
            (                # start capturing into $1
...
                             # when you hit a period
            \d\d\d}          # match three more digits 
            {$1}x;           # replace it all w/ $1