my $single_line = qr/
    sub\s+\w+\s*(?:\(.*?\)\s+)?\{\s*(?!\s*[\S])
    |
    sub\s+\{\s*(?!\s*[\S])
/x;

my $multi_line = qr/sub\s+\w+\s*(?![\S])/;