Perl also has "until" as the inverse of "while".

(It'll also let you use "unless ... else ..." - but please don't.)