I'm a tad confused, since according to the pod , you don't have to parse perl code, PPI does that for you. Example (PPI::Dumper output with PPI v0.992)

PPI::Document
  PPI::Statement::Sub
    PPI::Token::Word    'sub'
    PPI::Token::Whitespace      ' '
    PPI::Token::Word    'foo'
    PPI::Token::Whitespace      ' '
    PPI::Structure::Block       { ... }
      PPI::Token::Whitespace    '\n'
      PPI::Token::Whitespace    '    '
      PPI::Statement::Compound
        PPI::Token::Word        'if'
        PPI::Token::Whitespace          ' '
        PPI::Structure::Condition       ( ... )
          PPI::Statement::Expression
            PPI::Token::Symbol          '$something'
        PPI::Token::Whitespace          ' '
        PPI::Structure::Block   { ... }
          PPI::Token::Whitespace        '\n'
          PPI::Token::Comment   '        #do something\n'
          PPI::Token::Whitespace        '         '
          PPI::Statement::Compound
            PPI::Token::Word    'if'
            PPI::Token::Whitespace      ' '
            PPI::Structure::Condition   ( ... )
              PPI::Statement::Expression
                PPI::Token::Symbol      '$something_else'
            PPI::Token::Whitespace      ' '
            PPI::Structure::Block       { ... }
              PPI::Token::Whitespace    '\n'
              PPI::Token::Whitespace    '\n         '
          PPI::Token::Whitespace        '\n'
          PPI::Token::Whitespace        '    '
        PPI::Token::Word        'else'
        PPI::Token::Whitespace          ' '
        PPI::Structure::Block   { ... }
          PPI::Token::Whitespace        '\n'
          PPI::Token::Comment   '         #something else\n'
          PPI::Token::Whitespace        '    '
      PPI::Token::Whitespace    '\n'
[download]