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

##</code><code>##

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