my $data = qq!'a','b, and c','d '!;
my ($a,undef,$b,undef,$c) = unpack("a3a1a10a1a3",$data);