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