...
my @list = qw / bing bong bang /;
if($something =~ m/(?:@list)/i)
...