while (<>) { ##

##

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

##

##

if (/foo/) {

##

##

if ($_ =~ /foo/) {