Из Perl скрипта вынести текст в отдельный файл

Нужно вынести весь текст из тела скрипта в отдельный файл.

Планируется добавить поддержку нескольких языков - для каждого языка будет подгружаться свой языковой файл.

Исходные файлы большие (5тыс. и 4тыс. строк). Думаю не менее 3-х часов на выполнение.

Уже сделано примерно 20%.

От исполнителя требуется знание синтаксиса Perl (обязательно проверить полученные файлы на синтаксические ошибки)

===Пример====

###Исходный скрипт:

print

EOF

###Нужно сделать:

print

$TRANSLATE{'go_back'}

EOF

# + внешний языковой файл

%TRANSLATE = (

go_back => qq~

(Go back if you need to change anything.)

~,

Continue => qq~Continue~,

);

1;