Help for this page
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,