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