while(my $data = <>){
    process the line of data
}