Реферат: Проблемы автоматизации перевода математической литературы с английского языка на русский

$line=join("", <SOURCE>);

# производимзамены

foreach(keys %DIC){

$line=~s/$_/$DIC{$_}/;}

# выводим преобразованный текст в файл

print DEST $line;

# завершаем работу с файлами

close(SOURCE);

close(DEST);

}

# завершаемработупрограммы

closedir(CURRENT);

print "work has done\n";

print "please, press enter";

$end=<STDIN>;