foreach (90, 192, 257, 0x263a) { print "$_ - ", join ('.',unpack('C*',chr($_))),"\n" }