my $file = '...';

open my $inFile, '<', $file or die "Can't open $file: $!";
my $line = <$inFile>;
chomp $line;
my ($name1, $name2, $address, $phone) = split("\t");
close($inFile);