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

[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();