decoding XML inside <content>{encoded XML}</content>

xml-decode.pl

# usage:
#   perl xml-decode.pl FILE

use XML::LibXML;

binmode STDOUT;

my $parser = XML::LibXML->new();
my $doc = $parser->parse_file($ARGV[0]);

my $content = $doc->documentElement();
print $content->textContent;