Remove the quotes around the qr ...

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

(I removed the spaces because I'm lazy, not because I had to)