#!/usr/bin/perl

if (!open (FILEOUT,">>filtre.txt")) { die "Pb"};
while ($ligne = <>){
		if ($ligne=~/<w>(.*)<\/w>/) {
			print FILEOUT "$1\n";
		}
}