if ($my_dat =~ /^[0-9]+$/) {
   # $my_dat only contains digits.
   ...
}