open CVS, '/tmp/file.cvs' or die "Cannot open CVS file: $!";
while(my $row = <FILE>) {
    my ($name, $email, $text) =~ m!\,?\"(.*?)\"\,?!g;
    # do something
}
close CVS;