#!/usr/bin/perl

$file = "new.txt";
open(FILE, $file) or die "$!\n";
@data = <FILE>;
close(FILE);

foreach $entry (@data)  {

        ($var1, $var2, $var3) = split(/\"\W\"\,/, $entry);

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

}