for (@client_values) {
        chomp;
        s/(?=")/"/g;
        s/^/"/;
        s/$/"/;
    }

##</code><code>##

    for (@client_values) {
        s/(?=")/"/g;
        s/^/"/;
        s/\n$/"/;
    }

##</code><code>##

    for ($client_name, $client_phone_number, $client_email_address) {
        s/(?=")/"/g; # Escape quote characters...
        s/^/"/;
        s/\n$/"/;    # chomp and append quote character simultaneously...
    }

    my $client_record
        = join ',', $client_name, $client_phone_number, $client_email_address;

    print "$client_record\n";

##</code><code>##

        s/(?=")/"/g;

##</code><code>##

        s/"/""/g;