in reply to My favorite looping mechanism in Perl is:
My favorite is -p
:)
(Yes, it's technically a "while", but a very smooth and subtle "while"...)