Perlでパイプ処理を書いてたら、タイプミスして、while(><) { ... } と書いてしまった。