open (DATA, "$fname"); binmode DATA; while (read(DATA, $data, 280)!= 0) { my $hexval = unpack "H*", $data; $rec++; if (defined($decode) && $decode =~ /csv/) { csvout(uc($hexval)); } else { decode(uc($hexval)); } insertLine() if ($line); } close (DATA);