#!/usr/bin/perl
 
 open (FILE, 'data.txt');
 while (<FILE>) {
 chomp;
 ($name, $email, $phone) = split("\t");
 print "Name: $name\n";
 print "Email: $email\n";
 print "Phone: $phone\n";
 print "---------\n";
 }
 close (FILE);
 exit;

__END__

Tom tom@example.com 111-1111
Dave dave@example.com 222-2222
Test test@example.com 333-3333