my $record = <$fh>;                    # read the record
substr( $record, 15, 0, " " x 39 );    # insert 39 spaces