The code you provide is clear and concise enough, I would stay with it. But, just for curiosity, since Perl 5.10 you can use the smart-match (~~) operator for a shorter alternative (see perlop):

• if (! $string ~~ qw/A B/)
• if ($string ~~ qw/A B/)

citromatik

Comment on Re: conditional syntax options Select or Download Code