@test = split (//,$something);
foreach (@test) {print "$_\n";}

##</code><code>##

for (split //, $something) {
  printf "%02X ", ord;
}

##</code><code>##

4A 00 4F 00 48 00 4E 00