I'd probably have written it this way.

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