use strict;
use warnings;

sub extrnb1($){ #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 ){
		print $lgn; #le saut de ligne et resté en place !
	}
}#extrnb

extrnb1($ARGV[0]);