if ( $my_dat =~ /[^0-9]/ ) { # code here to handle the non-digits