use XML::Simple;
use Data::Dumper;
local $/;
my $xs = XML::Simple->new->XMLin('<opt>'.<>.'</opt>');
print Dumper($xs);