use Encode qw( encode );
# Or whatever encoding you specified in <?xml?>
$xmldata = encode('UTF-8', $xmldata);
my $length = length( $xmldata );

##</code><code>##

utf8::encode( $xmldata );
my $length = length( $xmldata );