Paren Numbers

[Artist]

Hi, 
 I code in LISP and Perl and I like to know How I can number the
parans temporarily. Especially when having compiler error in perl,
some time I have to guess where I am missing the parens. So if there
are numbering.. ie..

{ some test
  { somet other text
    }
}

should be converted

{1 some text
   {2 
      some other text
    2}
1}

that would be useful.

Thanks,
Artist