my ($untainted) = ($_num =~  /^(.*)$/);
if ($untainted >= 0 and $untainted < 1) {
    $num = $untainted + 0.0;
}