while (defined($_ = )) { last; } ##

##

while (-) {
    print $_;
}