>perl -wMstrict -lE
"for my $s qw(a b c d) {
   given ($s) {
     my $tail_a_and_b = sub { say qq{ after a or b, was '$_' } };
     when ('a') { say 'a';  $tail_a_and_b->(); }
     when ('b') { say 'b';  $tail_a_and_b->(); }
     when ('d') { say 'd';             }
     default    { say qq{other: '$_'}; }
     }
   }
"
a
 after a or b, was 'a'
b
 after a or b, was 'b'
other: 'c'
d