$ perl -le 'print for unpack("C*","foo")'
102
111
111