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