Select Code to Download

use warnings;
use strict;
...
  print "($Hotel_id) " if defined $Hotel_id;
  print "$Hotel_name\n";
}

<all>
<Hotel>Marriott</Hotel>
<Hotel ID = "123" name = "Savoy"></Hotel>
</all>