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