Что не так с этим регулярным выражением Perl?

Question

Я пытаюсь просмотреть файл и распечатать только слова без определенной буквы, указанной в классе символов.

 if ( $+ =~ [^Aa] )
{
print $_;
}

Но это не работает.Что я делаю неправильно?Приведенный выше пример должен вернуть список слов без «a» или «A», но, похоже, он не работает.

Answer 1

Регулярное выражение гласит «Включить символ, который не является А или« не »Включает только символы, которые не являются А или А».

Также отсутствуют разделители.

$+ =~ /^[^Aa]*$/

или

$+ !~ /[Aa]/