Select Code to Download

$string = "(x1,x1)(x2,y2)........(xn,yn)"

>perl -wMstrict -le
"my $u =
...
 print qq{'$s'};
"
'(x1,y7)(x1,y9)(x2,y3)(x2,y5)(x11,y6)(x11,y8)(x22,y2)(x22,y4)'

>perl -wMstrict -le
"my $u =
...
 print qq{'$s'};
"
'(x1,y7)(x1,y9)(x2,y3)(x2,y5)(x11,y6)(x11,y8)(x22,y2)(x22,y4)'