Perlito5 - perl6 - refator "while <>" to "for lines"