Just to show another way of doing it, I'd probably do:

@array = map { s/\D//g; $_ } @array;
[download]