#!/usr/bin/perl
use strict;
use warnings;

my @options = qw(yes no);
my $var = 'Yes';
my $isOption = join '|', @options;

if ($var =~ /^($isOption)$/i) {
    print "Matched '$1'\n";
} else {
    print "Want one of: @options\n";
}