$text =~ s/(\d\d)_(\d\d)/$1;$2/g;