programming-examples/perl/Statement/If statement in a while statement.pl

while (<>) {
    print "Too big!\n" if $_ > 100;
}