use warnings;
use strict;
use XML::Twig;

my $xml=<<'XML';
<Root>
<gfx>
   <group name="Group1" visible="true" wallpaper="false" isReferenceOb
+ject="false">
     <gotoButton name="GotoDisplayButton3" display="19 UNIT STATUS">
            <caption fontFamily="Arial" fontSize="9" caption="MAIN MEN
+U" />
            <imageSettings imageName="" alignment="middleCenter"/>
        </gotoButton>
  </group>
  <gotoButton name="GotoDisplayButton12" display="36 AIR_OIL SYSTEM SE
+TUP_2">
        <caption fontFamily="Arial" fontSize="9" caption="TO CRXW616&#
+xA;AIR/OIL" />
        <imageSettings imageName="" alignment="middleCenter"/>
  </gotoButton>
</gfx>
</Root>
XML

my $twig= new XML::Twig(
                          pretty_print => 'indented',
                          twig_handlers => {
                                             'gotoButton' => sub {prin
+t $_->att('name')," ",$_->att('display')," ", $_->first_child('captio
+n')->att('caption'),"\n" }

                          },
);

$twig->parse( $xml);
[download]