Select Code to Download

$VAR1 = {
          'nativeCurrencyCode' => 'USD',
          'displayCurrencyCode' => 'USD',
...
          'displayRoomRate' => '1106.62',
          'nativeRoomRate' => '1106.62'
        };

#!/usr/bin/perl -w
use strict;
...
    $elt->set_att( $att => $elt->text)->cut_children;
  }

$VAR1 = {
          'nativeCurrencyCode' => 'USD',
          'displayCurrencyCode' => 'USD',
...
          'displayRoomRate' => '1106.62',
          'nativeRoomRate' => '1106.62'
        };