$ perl -MO=Deparse -e 'grep { $_ eq "word1" && "word2" } @a'
grep {'word2' if $_ eq 'word1';} @a;
-e syntax OK
$ perl -MO=Deparse,-p -e 'grep { $_ eq "word1" && "word2" } @a'
grep({(($_ eq 'word1') and 'word2');} @a);
-e syntax OK