while (<>) {
    # process the line contained in $_
}