TelSearch.pl bill clinton

##</code><code>##

TelSearch.pl bill clinton

##</code><code>##

TelSearch.pl clinton bill

##</code><code>##

my $flag = 1;
foreach (@ARGV)
{
  if ($entry !~ m/\Q$_\E/)
  {
    $flag = 0;
  }
}