Select Code to Download

   for my $i (0 .. length($str)-1) {
       print " " if $i;
       print ord substr $str, $i, 1;
   }
   print "\n";

   print join " ", map ord, split //, $str;
   print "\n";

Malformed UTF-8 character (unexpected non-continuation byte 0x00 after
+ start byte 0xc9) in ord at test.pl line 6.
Malformed UTF-8 character (unexpected continuation byte 0xbc) in ord a
+t test.pl line 6.
Malformed UTF-8 character (unexpected non-continuation byte 0x00 after
+ start byte 0xc5) in ord at test.pl line 6.
Malformed UTF-8 character (unexpected continuation byte 0xbf) in ord a
+t test.pl line 6.
66 0 0 105 0 0

   print join " ", unpack "C*", $str;
   print "\n";