при выполнении следующего кода
open(FIL, $filename);
while(<FIL>)
{
if (/%%Title:(.*)$/)
{$newfile=$1.".fil";
}
}
close FIL;
почему то в исходном файле с именем $filename удаляется все содержимое! хотя нужно его просто открыть на чтение и присвоить переменной $newfile нужное значение.