use strict;
use warnings;
use Regexp::Common qw/balanced/;

my $string = '111(22(33)44)55';

$string =~ s/$RE{balanced}{-parens=>'()'}//g;

print $string, "\n";