Select Code to Download

use strict;
use warnings;
...
my $valid = $sample_string =~ m{$number x $number x $number/$number};
ok($valid, 'Sample string');

use strict;
use warnings;
...
    unlike $case->[0], $valid, $case->[1]
}

1..6
ok 1 - Sample
...
ok 4 - Missing operator
ok 5 - number exceeds max
ok 6 - number less than minimum