>>821
できない。単純変数に代入するか、readline関数を使ってください。
<>は中にグロブのファイル名パターンも書ける関係で変な仕様に
なっております。

$pat = '*.c';
while (<${pat}>) {...}

みたいなのできるんで。