Select Code to Download

use strict;
use Test::More 'no_plan';
...
ok 7 - 10.10
ok 8 - 0.0
1..8

my $rx = qr/\A
    (?: [0-4]\d? | 5?[0-5] | [6-9] ) \.
    (?: [0-4]\d? | 5?[0-5] | [6-9]  )
\z/x;

    '62.6' => 0,
    '9.97' => 0,
...
    '1.49' => 1,
     '6.7' => 1,
    '06.7' => 1,