use XML::Simple;
my $res = XML::Simple->new()
my $a_tag = $res->XMLin($text);