use strict; use warnings; use XML::TreeBuilder; my $xmlStr = <<'STR';