gistfile1.txt

$result{'name'} = $self->parse_name( $dom->at( '#mn-member-general #mn-member-name-nologo' )->tree );

yields:

$VAR1 = {
          'name' => [
                      'tag',
                      'div',
                      {
                        'id' => 'mn-member-name-nologo'
                      },
                      undef,
                      [
                        'text',
                        'Brunswick Business Journal',
                        $VAR1->{'name'}
                      ]
                    ]
        };