use strict;
use warnings;

use Text::CSV;

my $str = q|"2","T,E,S,T,B","Lazowsky","Mike's","Teststring"|;

my $csv = Text::CSV->new();
$csv->parse($str);

my @field = $csv->fields();
s/,//g for @field;

$csv->combine(@field);
print $csv->string(),$/;