while ( my $input_text = <INP> ) { ....