Try to look at Text::CSV.

Also, if all fields within CSV are surrounded by double-quotes, you can use this pattern:

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;
[download]