Вы не поделились с нами этой ошибкой или информацией, но это так много причин, по которым файл не может быть записан
Если файл существует, вы указали путь, который должен быть точным путем к файлу.
Я думаю, что вы можете найти решение на основе вышеуказанных деталей, но, пожалуйста, поделитесь с нами информацией о консоли или журнале, чтобы мы могли дать вам лучший ответ
Попробуйте текст:: модуль недиакритического знака от CPAN (или текст:: недиакритический знак:: PurePerl).
Это не походит на надлежащий случай для вызова регулярных выражений - у Вас должен просто быть список приемлемых ответов, плюс некоторая фильтрация для удаления несущественных слов как "a", и их определенные для языка эквиваленты.
Независимо от того, что Вы делаете, для меня кажется очевидным, что это должно быть осведомлено о кодировке символов и осведомлено о языке. Регулярные выражения обычно не ни один.