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