Select Code to Download

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

my $subroutine = qr/
    (
...
        \)
    )
/x;