while ($_ = <*>) { print }      # tests for definedness
print while ($_ = <*>);         # tests for truthfulness