my $s="\x{5fcd}\x{65e0}\x{53ef}\x{5fcd}";
use Encode;
print length encode("utf8", $s), "\n"; # 12