while (<>) {
    # $_ holds the line read - process it here
}