#!/usr/bin/perl
unless ($#ARGV==1) { die "$0 <pattern> <files.dat>\n"; }
open(INPUT, "<$ARGV[1]");
$pattern=$ARGV[0];
while(<INPUT>){
        chop;
        $filename=$_;
        open(INPUTFILE, "<$filename");
        $flag=0;
        while(<INPUTFILE>) {
                if (/$pattern/) {
                        if ($flag==0) {
                                $flag=1;
                                print "\n$filename:\n";
                        }
                        print "$_";
                }

        }
	close(INPUTFILE);
}