use Regexp::Common qw(balanced); m/Mod::func\s*$RE{balanced}{-parens=>'()'}\s*;/g