html декодируем поля формы else { foreach (@fields=split(/&/,$query)) { if (/^login=(.*)/) { $login=&urldecode ($1); } if (/^pass=(.*)/) { $password=&urldecode ($1); } if (/^email=(.*)/) { $email=&urldecode ($1); } } проверяем,не существует ли данное имя в системе. open(info,"login.txt") ||die; @data= ; читаем строки в массив. close(info); foreach $string(@data) { @item=split(/&/,$string); разбиваем строку на части. foreach (@item) { if ($item[0] eq $login) { сравниваем полученное имя с первым полем файла для каждой строки и если такое найдено выдаем ошибку. print <