Select Code to Download

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

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

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

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

use strict;

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

Found 'bing bong bang' in 'This is a bang of a bing thing bing bong ba
+ng'