my $subroutine = qr/ ( (\w+::)* \w+ \( $sub_args \) ) /x;