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