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

##</code><code>##

die if not defined $a;