Select Code to Download

$string='((1,2) (b,c)'
separators are '(' and ')'

use strict;
use warnings;
...

print "$result \n";