#! /usr/bin/perl -w @ARGV == 1 or die "usage: $0 in_filename out_filename\n"; my $in_filename = shift; #set infile to binary mode open INFILE, '<:raw', $in_filename or die "can't open $in_filename: $!"; binmode(INFILE); #open OUTFILE, '>', $out_filename or die "can't open $out_filename: $!"; # record length is 34 $/ = \34; #map input file to process integers while ( ) { my($f1) = unpack ("I1",$_); #format variables my $f1p = sprintf("%d", $f1); #write record to file print "$f1p\n"; } close INFILE;