perl -lne "printf qq([%s] => %02x\n), $_, ord $_ for split //" mmu-miR-150 [m] => 6d [m] => 6d [u] => 75 [-] => 2d [m] => 6d [i] => 69 [R] => 52 [-] => 2d [1] => 31 [5] => 35 [0] => 30 [ ] => 20