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