#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dumper;
use XML::Simple;
my $lua =<<'__LUA__';
<GeocodeResponse>
    <status>OK</status>
    <result>
        <type>street_address</type>
        <formatted_address>1600 Amphitheatre Pkwy</formatted_address>
        <address_component>
            <long_name>1600</long_name>
            <short_name>1600</short_name>
            <type>street_number</type>
            </address_component>
    </result>
</GeocodeResponse>
__LUA__

print Dumper( XMLin($lua, ) ), "\n\n";
__END__
$VAR1 = {
          'status' => 'OK',
          'result' => {
                        'formatted_address' => '1600 Amphitheatre Pkwy',
                        'type' => 'street_address',
                        'address_component' => {
                                                 'short_name' => '1600',
                                                 'long_name' => '1600',
                                                 'type' => 'street_number'
                                               }
                      }
        };