perl -le 'print "OK" if 0.0 =~ /^\d+$/'
perl -le 'print "OK" if "0.0" =~ /^\d+$/'