foreach (@tokens)
{
   $_ //= '';  #sets undefined value to empty string
               #the // operator (new in Perl 5.10) tests
               #for "defined-ness" instead of truthful-ness.
   print "$_\n";
}