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/;
Toad
| 