print "Decimal | Octal | Hex | Character\n"; print "--------+-------+-----+----------\n"; printf "%-8s| %03o | %02X |%3s\n",($_)x3,map{$_=/\n/?'^J':/\r/?'^M':$_}chr for 1..255;