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

##</code><code>##

die if not defined $r;