my $word = "Apple";

my $pattern_quoted = "qr/^(Orange|Apple|Grape|Halibut)$/i";

print "Pattern matched\n" if ($word =~ m/$pattern_quoted/);
print "Eval'd pattern matched\n" if ($word =~ eval($pattern_quoted));