Salut,

à toi d'adapter.
J'ai utiliser le handel DATA plutôt que le fichier. Fait les modifis nécessaires. #!/usr/bin/perl
use warnings;use strict;

while( defined (my $line = <DATA>) ) {
print "$1\n" if $line =~ /noeuds.*:(.*)/i;
}


__END__
| ELEMENT : 1 | HEXAEDRE | S-D : 3 | NOMBRE DE MOTS ASSOCIES : 27

NOMBRE DE NOEUDS : 8 : 1 4 6 2 55 56 57 58
REFERENCE DES FACES : 0 5 1 0 0 0

REFERENCE DES ARETES : 1 0 0 5 1 1 0 5 1 0 0 5
REFERENCE DES SOMMETS : 1 1 0 5 1 1
Ou encore #!/usr/bin/perl
use warnings;use strict;

while( <DATA> ) {
print "$1\n" if /noeuds.*:(.*)/i;
}


__END__
| ELEMENT : 1 | HEXAEDRE | S-D : 3 | NOMBRE DE MOTS ASSOCIES : 27

NOMBRE DE NOEUDS : 8 : 1 4 6 2 55 56 57 58
REFERENCE DES FACES : 0 5 1 0 0 0

REFERENCE DES ARETES : 1 0 0 5 1 1 0 5 1 0 0 5
REFERENCE DES SOMMETS : 1 1 0 5 1 1
lami20j