#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Cwd;
use File::Copy;

my $element = "coucou";

open (INFILE, "<EXEMPLE.txt");


while (my $line = <INFILE>){
	if ($line =~ /$element/){
		my $outfile = "RESEARCHED_text_"."$element".".txt";
		open (OUTFILE, ">$outfile");
		print OUTFILE "$line";		
		close OUTFILE;
	}		
}

close INFILE;