if ($i) {
while ($i) { die(); }
}
do {
my $last_thought && sleep($quietly);
} until $i #am
ne #quid nimis
'sad';
$i; #have
defined($me);
Condition which you have added
if ($i) {
while ($i) { die(); }
}
if $i eq 'sad' or 'happy' or whatever feelings, as per the condition, which you have written you will die,
My first change wold be
@unhappy_events = ( add all unhappy events according to you )
if ( grep(/$i,@unhappy_events) ) {
while ($i) { die(); }
}
If you change the poetry as per the condition, which I wrote, then obviously you will have to change the rest of lines.
perlmonks.org content © perlmonks.org and jesuashok, TwistedRaisin
prlmnks.org © 2006 edmund von der burg (eccles & toad)
v 0.03