my $pattern = qr/^(Orange|Apple|Grape|Halibut)$/ix;