use strict;
use warnings;
use XML::Simple;
use Data::Dumper;

my $xml = XMLin(\*DATA,         keyattr    => ['url'],
                                forcearray => '1');   

print Dumper($xml);
print "URL: $xml->{bar}->{blort}->{quux}->{url}\n";

__DATA__
<?xml version="1.0" encoding="iso-8859-2"?>
<foo>
  <bar>
    <blort>
      <quux>
        <url>http://f.co/index.html</url>
      </quux>
    </blort> 
  </bar>
</foo>