foreach $n(@array)
{
   $num=s/\D//i;
   print $num;
}