for my $uchar (split(//, $text)) { my $ord = ord($uchar); ... }