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