Select Code to Download

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

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

my ($num) = $_num =~ /^(...)$/
undef $num if defined $num && ($num < 0 || $num >= 1);