my @strings     = qw (
                                abc 
                                def 
                                der
                          );

my $string      = join ("|", @strings);

my $test        = "defined";


if ($test =~ m/$string/i){
        print "GEFUNDEN! ($&)\a\a\a\a";
}

<>;