my $word = "Apple";

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

print "qr// Match\n" if ($word =~ m/$pattern/);

print "non qr// Match\n" if ($word =~ m/^(Orange|
                                        Apple|
                                        Grape|
                                        Halibut)$/ix);