Select Code to Download

my $call = "&somesub";
$call =~ s/(&)(\w+(\([\"\w]*\))?)/$2/;

my $call = "&somesub("foobar")";
$call =~ s/(&)(\w+(\([\"\w]*\))?)/$2/;