PERL::CRITIC::POLICY::INPUTOUTPUT::PROHIBITREADLINEINFORLOOP(3PM) - manual page | Library functions

Write "while( $line = ){...}" instead of.