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