#premier essai, avec split

my @liste = split(/[0-9]+/, 'aaa5678894cc009ac45678c'); #('aaa', 'cc', 'ac', 'c') 

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

