die "invalid format: $string" unless $string=~/\A[^,]+(?:,[^,]+){5}\z/;