в perl:
Если переменная - $var, то
твоё иф проверка будет выглядеть примерно так:

if ($var =~ /здесь список запрещенных символов/) {
ругаемся
}

или можно удалять запрещенные символы:
$var =~ s/запр.символы//g;

рекомендую почитать на citforum или еще где доку про регулярные выражения, там и примеры есть толковые.