if ($my_dat =~ /^[0-9]/ ) {some code here;}