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(),$/;
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)