while (defined($_ = <STDIN>))

##</code><code>##

while(<STDIN>)