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";
}