use File::Slurp;

my $file = 'foo.bar';
my $temp = read_file($file);
my ($name1, $name2, $address, $phone) = split("\t", $temp);