Select Code to Download

my $s = "hello";
my $u = "\x{7777}";
...
$s = substr($s, 0, 5);  # get back the orig. "hello"

print "utf8 flag ", (utf8::is_utf8($s) ? "on":"off"), "\n";  # on - $s
+ftp->write(...) would abort