#!usr/bin/perl -w

open(WORD, "C:/programs/word.txt") || die "$!"; # открываем файл
@word=<WORD>; # считываем строки в массив
chomp @word;
close(WORD);



$_/\do+g/;
@word=grep length{$_}>4, @words; # поиск слов
chomp @words;

open(WORDS, ">C:/programs/words.txt") || die "$!";    # запись слов в новый файл
if (! Print WORDS "Запись сделана ", @words, "\n") {
	warn "Ошибка при записи в файл words: $!";
}
Close(WORDS);