#2ème essai, avec grep

my @liste = grep(/[0-9]+/, ('aaa5678894c', 'c009', 'ac', 'deb45', 'c'));

foreach my $chn ( @liste ){
	print $chn;
	print " - ";
}
print "\n";

