I do a LOT of CSV parsing and like to use Text::Parsewords. With that, you can do something like:

use Text::Parsewords;
my $delim = ",";

while (<>) {
    my @rec = &parse_line( $delim, 0, $_ );

    # then do something with @rec...
}
[download]

Hope that helps!