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