my $x = chr(194).chr(174);
binmode STDOUT, ':bytes';
print "x has length ", length($x), " >>$x<<\n";