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

my $str = "first\tsecond";
my ($first,$second) = ();

($first,$second) = split (/\t/,$str);

print ("First = $first, Second = $second\n");
__END__
First = first, Second = second