First of all, I don't like the third at all :-).

The first is fine, but it goes a little against my sense of KISS: it is perfectly clear to me what it would do, but... will it be for others that may read my code?

The second... well, I like a different approach, since I tend to use obviuous while test conditions only if I can't do without (for example, using the shell: while true ; do ...; done).

My approach is similar to the second one, but slightly different in syntax:

MY_BLOCK: {
  # do whatever you like
  # inside here and, if appropriate, set $condition
  redo MY_BLOCK unless $condition ;
}
[download]

This way I achieve my goal without using trivial cycle conditions and, hopefully, being more readable to others.

Just my 2 cents (of Euro)

--bronto

# Another Perl edition of a song:
# The End, by The Beatles
END {
  $you->take($love) eq $you->made($love) ;
}