(my ($s, $a, $c, $r) = split /[,\t]/) < 4 and die;