sub process {
	print shift, "\n"; 
}

my $string = "ccc __(dddd)ccc __(eeee)ssss";
$string =~ s/__\(([^)]+)\)/process($_)/egis;