Salut,

essaie ça (je sauvegarde dans le tableau tous les consonnes du fichier lettres) #!/usr/bin/perl
use warnings;use strict;

my @res;

open F_LIRE,"lettres"
or die "E/S: $!\n";

while( my $l=<F_LIRE> ){
chomp($l);
for my $z(split //,$l){
push @res,$z unless grep { /$z/ } qw/a e i o u/;
}
}
print "@res\n";lami20j

P.S. A adapter à ton cas