$input =~ s/(/,(/;