Name	City	Languages
Hong Xiao	Chongqing	English,Mandarin
Rob	Huston, TX	English,German,Japanese
Jess	Springfield, IL	English,French
Mike	Austin, TX	English,Perl,Java

##</code><code>##

#!/opt/bin/perl -w
use strict;       # don't allow unsafe constructs

my ( $name, $city, $language, $search );
my $whole;
my $count = 1;
my $line;
my @matched;

print "What language would you like to search for? ";
$search = <STDIN>;
chomp $search;


#open the employees file
open (EMPLOYEES, "employees.txt");

#for each line
while ($line = <EMPLOYEES>) {

    #remove the carriage return
    chomp $line;

    #splits the line between tabs and get the different elements
    ($name, $city, $language) = split /\t/, $line;

next unless $language =~ /^$search/;

print "$name speaks $search\n";

}
close (EMPLOYEES);