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

##</code><code>##

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

##</code><code>##

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 at 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 at test.pl line 6.
66 0 0 105 0 0

##</code><code>##

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