$s = 'blah blah, blah blah blah (blah, blah, blah), blah, blah';

$s =~ s#,(?=[^(]*\))#;#g;

print $s;
blah blah, blah blah blah (blah; blah; blah), blah, blah