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

##</code><code>##

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