#!/usr/bin/perl -w 
$motif = shift(@ARGV);
# $motif=$ARGV[0]
#Shift

# Manière non explicite
while(<>)
{
	print if(/$motif/);
};

# Manière explicite
#while($ligne = <>)
#{
#	if($ligne =~ /$motif/)
#	{
#		print $ligne;
#	}
#};