#!/usr/bin/perl
open(FICH_IN, "$ARGV[0]");
open(FICH_OUT, ">$ARGV[1]");
while ($ligne=<FICH_IN>)
{
	if ($ligne =~ /(\<title\>.*\<\/title\>)/)
		{print FICH_OUT "$1\n";}
	if ($ligne =~ /(\<description\>.*\<\/description\>)/)
		{print FICH_OUT "$1\n";}
}
close(FICH_IN);
close(FICH_OUT);