#!/usr/bin/perl -w
use strict;

my $line = "tok1 \t \t\t tok4\n";

chomp ($line);         #try running without this!
my @x = my ($tok1, $tok2, $tok3, $tok4) = split(/\t/,$line);
foreach my $token (@x)
{
   print "token = $token..\n"; #.. is there to show blanks
}
__END__
prints:
token = tok1 ..
token =  ..
token = ..
token =  tok4..

##</code><code>##

my @x = my ($tok1, $tok2, $tok3, $tok4, $tok5) = split(/\t/,$line);

##</code><code>##

my @x = split(/\t/,$line);
die "I don't have enough stuff..need 5 tokens\n" if @x <5;
my ($tok1, $tok2, $tok3, $tok4, $tok5) = @x;