Select Code to Download

use strict;
use warnings;
...
7
7
14

use Encode qw/encode/;
my $x = "abcdefg";
print length(encode("ucs-2", $x)), "\n";