my $s = "ab";
$s .= "\x{100}";
open F, ">/tmp/x";
print F $s;
close F;
printf "length = %d, size = %d\n", length $s, -s '/tmp/x';

##</code><code>##

Wide character in print at /tmp/p line 7.
length = 3, size = 4