use strict;
use warnings;
use Text::CSV;

my $csvData = <<END;
col0,col1,col2,col3,col4,col5,col6,col7
,"value",,"value1,value2","anothervalue","oh,comeon",,"Givemeabreak"
END

my $csv = Text::CSV_XS->new( { binary => 1, auto_diag => 2 } )
  or die "Cannot use CSV: " . Text::CSV->error_diag();

# Open the string like a file for reading
open my $csvfh, '<', \$csvData or die $!;

# Get first line (array reference to parsed column names)
my $columnNames = $csv->getline($csvfh);

# $row contains an array reference to the parsed csv line
while ( my $row = $csv->getline($csvfh) ) {
	print "Col$_: $row->[$_]\n" for 0 .. 7;
}

close $csvfh;