$var =~ s/\D//g;