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