use strict; use Test::More 'no_plan'; my $rx = qr/\A (?: [0-4]\d? | 5?[0-5] ) \. (?: [0-4]\d? | 5?[0-5] ) \z/x; my %test = ( '56.0' => 0, '0.56' => 0, '48.56' => 0, '56.10' => 0, '55.0' => 1, '55.55' => 1, '0.0' => 1, '10.10' => 1, ); my $result; is(/$rx/, !!$result, $_) while ($_, $result) = each %test; __END__ ok 1 - 0.56 ok 2 - 56.10 ok 3 - 55.0 ok 4 - 55.55 ok 5 - 48.56 ok 6 - 56.0 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, '55.9' => 1, '1.49' => 1, '6.7' => 1, '06.7' => 1,