Правила ввода (Perl)
 

Подскажите как организовать запрет ввода: пробелов, символов типа @#$%^ и смесь латиницы с кирилицей?

if ($FORM{'test'}) {
$name = "$FORM{'test'}";
$name =~ ???;
}

С помощью такой фичи:
В что_заменить можно вставлять шаблоны:

. Соответствует любому символу
[мн-во симв] Соответствует любому символу из данного мн-ва
[^мн-во] Отрицание мн-ва символов
(....) Группировка элементов(и также запоминание в переменных $1 $2 $3 ...)
(..|..|..) Одна из альтернатив
* повторение образца 0 или более раз
? Повторение 0 или 1 раз
+ Повторение 1 или более раз
{n,m} повторение от n до m раз
{n} повторение точно n раз
{n,} повторение n и более раз
Спец символы:
\t \r \n ... Управляющие символы:табуляции,возврат каретки,перевод строки.....
\d Соответствует цифре,Аналог [0-9]
\D Соответствует нецифровому симсволу,аналог[^0-9]
\w Соответствует букве
\W Соответствует небуквеному символу
\s Соответствует пробельным символам(пробелы,табуляции,новые строки..)
\S Соответствует непробельному символу
\b Соответствует границе слова
\B Соответствует не границе слова

Например: