$ perl -lE 'say join( q{,}, unpack( "C*", qq{Hello} ) )'
72,101,108,108,111
$ perl -lE 'say join( q{,}, map ord, split(q{},qq{Hello}) )'
72,101,108,108,111
$ perl -lE 'say pack( "C*", 72, 101, 108, 108, 111 )'
Hello