use strict; use warnings; use XML::Twig; my $xml = <