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";