while(my $line = <IN>) {
        #Do whatever processing you want with $line
    }