use File::Slurp;
my $text = read_file( 'filename' ) ;

##</code><code>##

if (($text !~ m/$nameOne/) && ($text !~ m/$nameTwo))
{
  print "$name\n";
  $ct++;
}