Help for this page

Select Code to Download


  1. or download this
    use File::Slurp;
my $text = read_file( 'filename' ) ;
  2. or download this
    if (($text !~ m/$nameOne/) && ($text !~ m/$nameTwo))
{
  print "$name\n";
  $ct++;
}