Select Code to Download

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

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