Select Code to Download

  # before
  printf " %2x %3u: %c |" , ($_ , $_ , $_);
  
  #  after
  printf ' %1$2x %1$3u: %1$c |' , $_;

#  print character table; column & row headings are compsed of hex num
+bers
sub hex_table
...
    print "\n" if $_ && ($_ + 1 ) % 8 == 0;
  }
}