Help for this page

Select Code to Download

Select or download this

 cat x.pl; echo ; perl x.pl

use strict; use warnings;
...
ORIG: ONE,"$TWo2","Three,(3",Four,Five
 NEW: ONE,"$TWo2","Three|(3",Four,Five