use Encode qw( decode );

$s = "高";
print(length($s), "\n");  # 3

$s = decode('utf8', "高");
print(length($s), "\n");  # 1

$s = do { use utf8; "高" };
print(length($s), "\n");  # 1