# input example: 1|2|3|||6|7||||

     @fields = split('\|', $_);

      foreach (@fields) {
                &process($_);
                }

sub process
{
        print $_ . "\n";
}