Help for this page
sub process { print shift, "\n"; ... my $string = "ccc __(dddd)ccc __(eeee)ssss"; $string =~ s/__\(([^)]+)\)/process($_)/egis;
www.com | www.net | www.org
No recent polls found