RosettaCodeData/Task/Input-loop/Perl/input-loop-3.pl

while (<>) {
    # $_ contains a line
}