Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print '$s contains ', length($s), " bytes.\n";
print '$i contains ', length($i), " characters.\n";
print '$r contains ', length($r), " bytes.\n";

The regex and utf8::encode() match.
The 3 Unicode strings match.
...
$s contains 255 bytes.
$i contains 255 characters.
$r contains 383 bytes.