Bah, can't figure how to reply to the original message. (My first contribution ever, and it has to be this .. oh, the shame! The humanity!)

for (1) {
for (1) {
  my @breach = ("dear", "friends");
}}

# Henry V, of course

# I know, hardly obtuse enough, but then being a mere novice ...

my ($prick, $tickle, $wrong);
my ($bleed, $laugh, $revenge) = undef;

if ($prick)
{ $bleed = 1; }
if ($tickle)
{ $laugh = 1; }
if ($wrong)
{ $revenge = 1; }

# Or

warn "bleed" if /prick/;
warn "laugh" if /tickle/;
warn "revenge" if /wrong/;
[download]

Toad