>>107 ありがとうございます。
エラーはif文で処理していました。

open(IN_FILE, $in_file) or die "Can't open $file. : $!\n";
と
open(IN_FILE, $in_file) or die qq(Can't open "$file". : $!\n);
を試した所旨く動作しないのですが・・