if($string =~ m/(\d\d\d\d+)/ || $string =~ m/(\d\d\d\d\d+)/){
   $string =~ s/\D//g;
}