use strict;
use XML::Simple;
use Data::Dumper;
my $Parser = new XML::Simple(
forcearray => [qw(LOCALE)],
suppressempty => '',
);
my $data = $Parser->XMLin(<<'*END*');
ahoj
*END*
print Dumper($data);
####
$VAR1 = {
'othertag' => ' ahoj ',
'subtag' => ''
};