while (<INFILE>) {
    my (undef, $site, $date, $city, $state, $facility, undef, $ddurl) =
        /\G"?([^\t]*?)"?(?:\t|[\r\n]+$)/g;
}