sub test
   {my $x = shift;
    given ($x)
      {when ('a' or 'b') {say 'Y';}
       default {say 'N';}}
    given ($x)
      {when ('a' or $_ ~~ 'b') {say 'Y';}
       default {say 'N';}}
    given ($x)
      {when ($_ ~~ 'a' or 'b') {say 'Y';}
       default {say 'N';}}}

test('a');
test('b');

##</code><code>##

Y
Y
Y
N
N
Y