If you can't have it die, you can make it do that if split splits into only one part.

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

or, alternatively, you can do

die if not defined $a;
[download]

edit code fixed, thanks ColonelPanic