while (<$input>) {
    chomp;
    # do something with $_
}