#!/usr/bin/perl -w
use strict;

my $test = "Bla bla bla;bla bla(foo; bar);bla blaBla bla bla; bla bla (foo; bar); bla bla ";

$test =~ s/(\([^;]*);([^;]*\))/$1,$2/g;
print $test;