$string =~ s/\d//g;