dvl999, да я предполагал, что проблема может быть в этом, но по видимому не правильно избавлялся от символов конца строки "\n".

Я делал это с помощю функции chop();
А именно так:

code:


if ($line !~ /^*\n/)

{

chop(@FORM

Это не правильно? Я еще специально сравнивал введенную пользователем строку и найденную в файле, даже если в обоих есть символ "\n" программа не видела этого, и вела себя словно эти строки не совпадают.