Regex 这个perl正则表达式有什么问题？

我试图遍历一个文件，只打印出字符类中指定的没有特定字母的单词

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

---

但这不起作用。我做错了什么？上面的例子应该给出一个没有“a”或“a”的单词列表，但它似乎不起作用

正则表达式表示“包含非a的字符”或“不”仅包含非a或a的字符

它还缺少分隔符

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

或

---

或者

$+=~/[^Aa]/

或者甚至可能

$+！~/a/i

$+ !~ /[Aa]/