The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
$VAR1 = bless( {
  'warnings' => [],
  'errors' => [],
  'tree' => bless( {
    'typename' => '(document)',
    'content' => [
      bless( {
        'typename' => 'pod',
        'content' => [
          bless( {
            'typename' => 'input',
            'content' => [
              'find baracus
'
            ],
            'style' => 'abbreviated'
          }, 'Perl6::Perldoc::Block::input' ),
          bless( {
            'typename' => 'output',
            'content' => [
              '    Name:    Baracus, B.A.
    Rank:    Sgt
    Serial:  1PTDF007

    Do you want additional personnel details? ',
              bless( {
                'typename' => 'K',
                'content' => [
                  'y'
                ],
                'style' => 'formatting'
              }, 'Perl6::Perldoc::FormattingCode::K' ),
              '

    Height:  180cm/5\'11"
    Weight:  104kg/230lb
    Age:     49

    Print? ',
              bless( {
                'typename' => 'K',
                'content' => [
                  'n'
                ],
                'style' => 'formatting'
              }, 'Perl6::Perldoc::FormattingCode::K' ),
              '
'
            ],
            'style' => 'delimited'
          }, 'Perl6::Perldoc::Block::output' )
        ],
        'style' => 'implicit'
      }, 'Perl6::Perldoc::Block::pod' )
    ]
  }, 'Perl6::Perldoc::Document' )
}, 'Perl6::Perldoc::Parser::ReturnVal' );