Select Code to Download

((defined($_->[0]) && $_->[0] =~ m/^\d+$/) ? $_->[0] : 0)

$ perl
use strict;
...
1,10,11
2,20,22
3, ,3