#!/bin/perl
# recherche un motif dans un ou plusieurs fichiers. Le motif est le premier
# argument
$motif = shift(@ARGV); # On prend le motif, premier argument, qu'on enleve
while (<>) {
	if (/$motif/) {print;};
}