That was exactly what I did a few months ago. And today I spend a few minutes trying to find out why I put s/"//g:

foreach (<DATA>) {
        ($a,$b,$c) = ($3,$2,$1) if
                /^(\w+)\s(\S+)\s("([^"]+)"|(\w+))/;
        $a =~ s/"//g;
.
.
[download]

I thought that if I need to match 3 fields, there should by a regexp that sets $1, $2 and $3. Just as a mental exercise. Thanks for your answer.