Two small things:

• in print_sub

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

  $slurb should be replaced by $content

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

  small copy and paste error ... it actually works here but just because the sub declaration and the my declaration of slurp are by chance in the same scope.

• The 'Camel' (3rd edition, chapter 5.10.3.4 - sorry no page number, this is from the bookshelf CD) has a very witty regex to match matching parens. This might also be helpful in such cases although I prefer here the suggested B::Deparse method

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

  [replace round parens with braces]

-- Hofmator