use Modern::Perl;

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

while($_=~ s@\(([^\)]*?)h,@\($1h;@gs){}

say;