prints IBM hex files in a formatted way

view_hexfile.pl

#!/bin/perl
# view_hexfile.pl
# prints IBM hex files in a formatted way
# Max Weller, http://max-weller.de

while(<>) {
  if($_=~/^\s*:([A-F0-9]+)\s*$/) {
    my @data = unpack("(A2)*", $1);
    print $_," " for (@data);
    print "  |  ";
    for(@data) {
      my $d = hex;
      print ($d<32||$d>128?".":chr $d)," ";
    }
    print "\n";
  }
}