Select Code to Download

    my $old_INPUT_RECORD_SEPARATOR = $/;
    $/ = $self->record_delimiter;
...
    } ## end while (<DELIMFILE>)
    close (DELIMFILE);
    $/ = $old_INPUT_RECORD_SEPARATOR;

my $field_value;
my $delimiter = $self->field_delimiter;
...
        }
    } ## end else [ if ($inputstring =~ /^"/)]
}