Select Code to Download

my @actions = (
  qr/thingy(with)parens(to)boot/ => sub { do this },
  qr/smile(and)frown/ => [sub { do this }, sub {and this }],
  qr/another(one)bites(the)dust)/ => undef,
);

$_ = some line;
my @tmp = @actions;
...
    last;
  }
}