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";
}

##</code><code>##

my @search = $something =~ m/($list)/ig;  # <- added the g modifier

##</code><code>##

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

##</code><code>##

use strict;

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

my @list = qw / bing bong bang /;

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

##</code><code>##

Found 'bing bong bang' in 'This is a bang of a bing thing bing bong bang'