$linename = join(",", map { s/"/""/g; qq("$_") } $sys_time, $consent, $user_name, $company, $user_email);