Select Code to Download

my $line = ";field;;field;\t;field; ;field;field";
my @line = split ";", $line;
...

print "line contains ", scalar @null, " null fields at offset(s): @nul
+l";
#line contains 2 null fields at offset(s): 0 2

use strict;

...
alpha|beta||delta|
||c|d|
one|||four|