Как сделать часть регулярного выражения Perl отрицательной необязательной?

Question

Я хочу матч

my @array = ( 'Tree' , 'JoeTree','Joe');

    foreach (@array ) {
      if ( $_ =~ /^(Joe)[^Tree]/gi) {
        print "matched $_";
      }
    }

Это соответствует только Джо. оно не должно совпадать ни с чем другим

Answer 1

Для этого вам не нужны регулярные выражения:

if ($_ eq 'Joe') {
    print "matched $_";
}  

Answer 2

Соответствует только «Джо» как весь текст?

/^(Joe)$/

или сопоставить «Джо» как одно слово?

/\b(Joe)\b/

или соответствует «Джо», за которым не следует «Дерево»?

/^(Joe)(?!Tree)/