Select Code to Download

$ perl -MData::Dumper -e'@a = split /\t/, "foo\t\tbar"; print Dumper \
+@a'
$VAR1 = [
...
          '',
          'bar'
        ];

$ perl -MData::Dumper -e'@a = map $_//"NA", split /\t/, "foo\t\tbar"; 
+print Dumper \@a'
$VAR1 = [
...
          'bar'
        ];

$ perl -MData::Dumper -e'@a = map $_ ne "" ? $_ : "NA", split /\t/, "f
+oo\t\tbar"; print Dumper \@a'
$VAR1 = [
...
          'NA',
          'bar'
        ];