Faire un perl

Bonjour,
voici le script :

#!/usr/bin/perl
use File::Find;

sub txt {
print $File::Find::dir ;
my $file = $File::Find::name if ( ! -d $_ && -T $_ );
push @LIST,$file if ($file);
$file =~ s/$File::Find::dir\//--->/;
print $file . "\n";
}
my @dir = ("/home/.../rep/");
find(\&txt, @dir);

foreach my $fic(@LIST)
{ open(FIC,"<$fic") or warn ("$fic non ouvert : $!\n");
undef $/;
while(<FIC>)
{ if ($_ =~ /<?html>?/i && $_ =~ /@ARGV[0]/i) { print "$fic\n"; }; };
close(FIC);
} ;

on fait un find avec -T $_ pour recuperer les fichiers type texte,
puis je selectionne grace au if ($_ =~ /<?html>?/i les fichiers type html les plus connus...?
ensuite je cherche un motif avec @ARGV

En fait je veux cibler plusieurs type de fichier textes ( ou meme binaires ) : une methode ou un module facilement utilisable pour faire le "file" du shell sur tous les fichiers du repertoire.

Si on peut m'aider,merci d'avance , quitte à mettre ce message sur le forum programmation