だれか、ActivePerlが

1.while(<S>) {
2.for(;<S>;){

で、沈黙する回避方法を教えれ。1.2.ともに沈黙。
Sの内容は
http://piza.2ch.net/car/kako/972/972054511.dat