SYNOPSIS

use XML::Simple;
use Data::Dumper;
my $ref = XMLin($filename);
print Dumper $ref;

from there, its a simple structure deref. you should use the right tool for the job. regexs are great, but not for evrythg