$s =~ s/\xc4\x80/\x{100}/g;
	$s =~ s/\xc4\x81/\x{101}/g;
	$s =~ s/\xc4\x82/\x{102}/g;
	$s =~ s/\xc4\x83/\x{103}/g;
	$s =~ s/\xc4\x84/\x{104}/g;
	$s =~ s/\xc4\x85/\x{105}/g;
	$s =~ s/\xc4\x86/\x{106}/g;
	$s =~ s/\xc4\x87/\x{107}/g;
	$s =~ s/\xc4\x88/\x{108}/g;
	$s =~ s/\xc4\x89/\x{109}/g;
	$s =~ s/\xc4\x8a/\x{10A}/g;
	$s =~ s/\xc4\x8b/\x{10B}/g;
	$s =~ s/\xc4\x8c/\x{10C}/g;
	$s =~ s/\xc4\x8d/\x{10D}/g;


##</code><code>##

use Encode qw(encode decode);
$answer = encode("UCS-2BE", $answer);