my $something = 'This is a bang of a bing thing';

my @list = qw /bing bong bang/; # want to search for these
my $list = join '|', @list;     # construct my pattern

if($something =~ m/($list)/i) {
  print "Found '$1' in '$something'\n";
}