Select Code to Download

use Data::Dumper;
my $content = join '', <DATA>;
my $response = XMLin($content);
print Dumper($response);

$VAR1 = {
  'offer' => {
...
    }
  }
};

my $response = XMLin($content);

for my $id (keys %{$response->{offer}}) {
    print $response->{offer}->{$id}->{zip}, "\n";
}

48120
80236
43240