#!/usr/bin/perl

$motif=$ARGV[0];
shift;
foreach $f (@ARGV)
{
	open(F,"<$f") || die "Impossible de lire le fichier $f : $!";
	
	while(<F>) {
		print "Motif trouvé dans $f : $_ \n" if(/$motif/);
	};
}