Select Code to Download

>perl -E"say 'ok' if 'a' ~~ ('a', 'b');"

>perl -E"say 'ok' if 'b' ~~ ('a', 'b');"
ok

say "ok" if "a" ~~ X;

say "ok" if "a" ~~ scalar(X);

>perl -E"use constant X => qw(a b c); say 'ok' if 'a' ~~ @{[ X ]}"
ok