Select Code to Download

    for (@client_values) {
        chomp;
...
        s/^/"/;
        s/$/"/;
    }

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

    for ($client_name, $client_phone_number, $client_email_address) {
        s/(?=")/"/g; # Escape quote characters...
...
        = join ',', $client_name, $client_phone_number, $client_email_
+address;

    print "$client_record\n";

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

        s/"/""/g;