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