my %c = (
    map(+(chr,sprintf '\x%02X',$_), 0 .. 31, 127 .. 160),
    "\a" => '\a',
    "\b" => '\b',
    "\e" => '\e',
    "\f" => '\f',
    "\n" => '\n',
    "\r" => '\r',
    "\t" => '\t',
);

print  "Decimal | Octal | Hex | Character\n";
print  "--------+-------+-----+----------\n";
printf "%7d |  %03o  | %02X  | %4s\n", ($_)x3, $c{+chr}||chr for 1..255;