Select Code to Download

use strict;
use warnings;
...
    ok( !($does_match xor $test_cases{$case} eq 'valid'),
        "'$case': $test_cases{$case}" );
}

ok 1 - '999999': valid
ok 2 - '   999': valid
...
ok 4 - '  9999': valid
ok 5 - ' 99 9': invalid
1..5