Perlito5 - parser - "while" special case