while () { ... } ##

##

while (defined ($_ = )) {
...
}
##

##

while (($_ = ) ne "\n"){
...
}