Re: If I was forced to use only one kind of loop for the rest of my days it would be a

[gloryhack]

while ($bastard -> state() =~ /^alive$/i) {
  $bastard -> beat(severity => $max);
}
$cool_looping_constructs -> restore();

[saskaqueer]

I'm always picky when it comes to using regexes where a simple eq comparison would be fine (but then again, that's just me):

$bastard->beat(severity => $max)
    while ( lc($bastard->state()) eq 'alive' );

$cool_looping_constructs->restore();