gistfile1.perl

pmichaud@plum:~/nqp-rx$ cat y.nqp
#! nqp


for < Bool::True True  True::X  Bool::True::X > {
    my $match := $_ ~~ / 'Bool::'?: 'True' && <[A..Za..z:\-]>+: /;
    say( $match ?? "$_ matches" !! "$_ doesn't match");
}


pmichaud@plum:~/nqp-rx$ ./nqp y.nqp
Bool::True matches
True matches
True::X doesn't match
Bool::True::X doesn't match
pmichaud@plum:~/nqp-rx$