#!/usr/bin/perl

foreach $entry (<DATA>)  {

        ($var1, $var2, $var3) = ($entry =~ /"([^"]+)"(?:,|$)/g);

        print "Var1: $var1\n";
        print "Var2: $var2\n";
        print "Var3: $var3\n";

}

__DATA__
"value 1","something else","other stuff"
"asdf123","omg","hope this works"
"more tests","testy","blah"