#!/usr/local/bin/perl

sub vire_ctrlM
{
    local($fich)=@_;

    open(UNAME,$fich);
   
    while(<UNAME>)
    {
	if( /them_....._.._(\d*)/)
	{
	    @type_file = grep (!/$1/,@type_file);
	    push(@type_file,$1);
	}
    }

    close(UNAME);
    system "rm /tmp/filenames";

}
