use strict;
use warnings;
use Encode;

my $str = "הההההההההההההההההההההההההההההההההההההההה";

print 'Raw: ' . length $str;
print "\nDecoded: " . length decode ('utf8', $str);

##</code><code>##

Raw: 80
Decoded: 40