my ($num) = $_num =~ /^0?\.\d+$/;