#!/usr/bin/perl 
use strict;
my ($what,$file)= @ARGV;
open(HANDLE, $file);
my @match = grep { /$what/ } <HANDLE>; 
close HANDLE;
scalar @match or print STDERR "$file is missing $what\n";
exit;