Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
...
    $s =~ s{ \G ,? \K (\d+) }{'$1'}xmsg;
    print qq{skip $n  :$s: \n};
    }

Select or download this

skip 0  :('1') XXX (123) YY YY (1,22,333) Z Z Z (22,1):
skip 1  :(1) XXX ('123') YY YY (1,22,333) Z Z Z (22,1):
skip 2  :(1) XXX (123) YY YY ('1','22','333') Z Z Z (22,1):
skip 3  :(1) XXX (123) YY YY (1,22,333) Z Z Z ('22','1'):