Select Code to Download

#!perl -w
use strict;
...
    return (@list);
} # GetCharPositions
# ----------------------------------------------------

C:\TEMP\test>parenReplace.pl
String: $a($a hi) $a (($a))$a
...
S: $b($a hi) $a (($a))$a
S: $b($a hi) $b (($a))$a
S: $b($a hi) $b (($a))$b