>>643-644
ありがとうございます。

配列が嫌ってわけではないです。
シェルスクリプト（sh系）なら
recs=`cat ./data.txt`
for rec in $recs; do
　処理・・・
done
こんな感じでできるのでperlも
直接処理ができるのかと思いました。

元々のコードは
while(<STDIN>){
　$r = $_;
　処理・・・
}
なのですが、
今回<STDIN>の中に
複数のOSの改行コードが存在する
疑惑があり、処理が正常に動かなかった為、
調査のために、ファイルに一気に出力しました。

素直に配列でやります。