#!/usr/bin/perl

use strict;
use warnings;

use Text::ParseWords;

my @data = <DATA>;

foreach my $entry (@data)  {

  my ($var1, $var2, $var3) = parse_line(',', 0, $entry);

  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"