#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use XML::Twig;
my $twig= XML::Twig->new( twig_handlers => { nativeNightlyRate   => sub { content_to_att($_, 'rate'); }, 
                                             displayNightlyRate  => sub { content_to_att($_, 'rate'); },
                                             DisplayNightlyRates => sub { $_->erase },
                                             NativeNightlyRates  => sub { $_->erase },
                                           }
                        );

my $xml=qq~<RateInfo>
        <displayCurrencyCode>USD</displayCurrencyCode>
        <DisplayNightlyRates size=\'3\'>
          <displayNightlyRate>298.95</displayNightlyRate>
          <displayNightlyRate>298.95</displayNightlyRate>
          <displayNightlyRate>348.95</displayNightlyRate>
        </DisplayNightlyRates>
        <displayRoomRate>1106.62</displayRoomRate>
        <chargeableRoomRateTotal>1106.62</chargeableRoomRateTotal>
        <chargeableRoomRateTaxesAndFees>159.77</chargeableRoomRateTaxesAndFees>
        <nativeCurrencyCode>USD</nativeCurrencyCode>
        <NativeNightlyRates size=\'3\'>
          <nativeNightlyRate>298.95</nativeNightlyRate>
          <nativeNightlyRate>298.95</nativeNightlyRate>
          <nativeNightlyRate>348.95</nativeNightlyRate>
        </NativeNightlyRates>
        <nativeRoomRate>1106.62</nativeRoomRate>
        <rateFrequency>B</rateFrequency>
</RateInfo>~;


$twig->parse( $xml);    # build the twig


my $struct = $twig->simplify(
     forcearray => [ qw(NativeNightlyRate DisplayNightlyRate) ],
);
print Dumper $struct;


sub content_to_att
  { my( $elt, $att)= @_;
    $elt->set_att( $att => $elt->text)->cut_children;
  }