my @pieces = split /,\s*/, $var;