Help for this page
use strict; use warnings; ... 7 7 14
use Encode qw/encode/; my $x = "abcdefg"; print length(encode("ucs-2", $x)), "\n";