if ($var=~/^(apple|pear|orange)$/) {....