use strict;
use warnings;

sub extrnb2($){ #arg. nom de fichier
	my ($fich) = @_;
	open(ENTREE, "<$fich");
	
	my $er = '([1-9][0-9]*|0([0-7]+|x[0-9A-F]+))';
	my @tablignes = <ENTREE>;
	my @tabnb = grep(/$er/, @tablignes);
	foreach my $lgn ( @tabnb ){
		my @tab = ($lgn =~ m/$er/);
		print ("longueur du tableau = ".scalar(@tab)." 1er = $tab[0]"); 
		if ( defined($tab[1]) ){ 
		    print(" 2eme = $tab[1]\n");
		}else{
		    print("\n");
		}
	}
}#extrnb2

extrnb2($ARGV[0]);