1: open (DATA, "$inputdir/$inputfile");
  2: while (<DATA>) {
  3:   my ($filehdr, $data) = m|(.{40})(.*)|;
  4:   ($len = substr($data, $offset, 4)) =~ s/^0//g;
  5:
  6:   foreach $val ($data) {
  7:     $cdata = substr($val, $offset, $len);
  8:     print "$cdata\n";
  9:   }
 10: }
 11: close(DATA);