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