open (INPUT, $input) || die "Cannot open input file: $!\n";
while ($line = <INPUT>) {
  # format the record and write to a new file
}
close INPUT || die "Cannot close input file: $!\n";