Select Code to Download

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

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

$np = qr{
           \(
...
           )*
           \)
        }x;