http://www.perlmonks.org?node_id=8375


in reply to Does anyone know how to do this in Perl?
in thread I work out/exercise this often

my $life; while($life) { if($ergs_expended) { $life++; } elsif($cheetos_eaten) { $life--; } else {} } while(true) { print "regret\n";
Sorry, forgot the final code tag
Simplicus