my @words = ( 'sevens', 'even' );
foreach(@words){
print "even=$_\n" if( $_ =~ /(?:(?!s)even)/ );
print "sevens=$_\n" if( $_ =~ /(?:sevens)/ );
}

上記でeven=even sevens=sevensとプリントしたいのですが、上記では$_に"sevens"が来たときに
両方プリントされます。
(?!s)でevenの前にsが無い時、と表現しているつもりなのですが、どこがおかしいのでしょうか。
^$（先頭、最後尾）を使わずに実現したいです。