#!/usr/bin/perl

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