Select Code to Download

use strict;
use warnings;
...

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

Raw: 80
Decoded: 40