use strict;
use warnings;

sub extrnb2G($){ #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/g); # avec le flag 'g'
		foreach my $nb ( @tab ){
			if( defined($nb) ){
				print ("$nb - "); 
			}
		}
		print ("\n");
	}
}#extrnb2G

extrnb2G($ARGV[0]);