foreach my $byte (unpack "C*", $string) {
      do something with my $byte

##</code><code>##

   while ($string =~ /./sg) {
      do something with $1