MAKE_DHEX 295 Bytes
#!/usr/sbin/perl
# SCCS: @(#)MAKE_DHEX	1.1 07 Sep 1994
# 
# This script extracts data from the output of octal dump (od) program
# leaving out the address column (column zero).
#
while (<>) {
  chop;
  split;
  print $_[1], "\n";
  print $_[2], "\n";
  print $_[3], "\n";
  print $_[4], "\n";
}