#!/usr/local/perl5/bin/perl -w

while( <> ) {
    chomp;
    if (/REMPLACER_CETTE_EXPRESSION_PAR_CELLE_DE_VOTRE_CHOIX/) {
	print "Match : |$`<$&>$'|\n";
    }
    else {
	print "No match.\n";
    }
}