my ($body) =  $slurp =~ /sub\s+$name\s+{\s+(.*?(?=^}\s*$))/sm;
##</code><code>##

my ($body) =  $content =~ /sub\s+$name\s+{\s+(.*?(?=^}\s*$))/sm;
##</code><code>##

$np = qr{
           \(
           (?:
              (?> [^()]+ )    # Non-parens without backtracking
            |
              (??{ $np })     # Group with matching parens
           )*
           \)
        }x;