while (<>) {
}

##</code><code>##

while (defined( my $line = <>)) {
}

##</code><code>##

perl -MO=Deparse -e 'while (<>) {}'
while (defined($_ = <ARGV>)) {
    ();
}

##</code><code>##

perl -MO=Deparse -e ' if(1) {print "true"}'     
do {
    print 'true'
};

##</code><code>##

perl -MO=Deparse -e ' print "true" if 1'   
print 'true';