in reply to Real global substitution, what's the best way?

In C I am used to: 
while (expr)
    ;

[download]
I don't like the while (expr) {} in perl. Instead I personally prefer 1 while (expr); Maybe I am just strange.

HTH, --traveler

In Section Seekers of Perl Wisdom