Select Code to Download

m{
    ^
...
    )
    \z
}xs;

m{
    ^
...
    )
    \z
}xs;

my $masked = $_ & "\x00\xFF \x00\xFF \x00\xFF \x00\xFF \x00\xFF";
(  $masked eq "\x00D \x00D \x00D \x00D \x00D"
...
|| $masked eq "\x00C \x00C \x00C \x00C \x00C"
|| $masked eq "\x00H \x00H \x00H \x00H \x00H"
)

sub build {
    return
...
|| $suits == ALL_C
|| $suits == ALL_H
)