#! /usr/bin/perl
use warnings;
use strict;
use XML::Simple;
use Data::Dumper;
use HTML::Entities;
my $ref = XMLin('-', ForceArray => 1);
#print Dumper($ref);
print qq|
English Mumble
|;
foreach my $entry (@{$$ref{'context'}}) {
# print Dumper($entry);
print "".$entry->{'name'}[0]."
\n";
my $msg = $entry->{'message'};
foreach my $m (@{$msg}) {
my $text = $m->{'source'}[0];
$text =~ s/\&(\S+)/$1/g;
$text = encode_entities($text, '&%');
$text =~ s/^<\-$/<-/;
if ($text =~ /\/) {
print $text;
} else {
print "".$text."
";
}
print "\n";
}
# my $ctx = $$ref{'context'}->{$entry};
# print "HAXX\n";
# print Dumper($entry);
# print Dumper($ctx);
# my $r = $$ctx{'message'};
# print Dumper($r);
# foreach my $msg (keys %{$$ctx{'message'}}) {
# print Dumper($msg);
# }
# last;
}
print "\n";