if ($my_dat =~ /[^0-9]/) {
   # $my_dat contains a non-digit.
   ...
}