for (@patterns) {
     if ( $incoming{'text'} =~ /$_/ ) { 
         ....
     }
  }

##</code><code>##

     if ( $incoming{'text'} =~ /$Big_Regex/ ) { 
         ....
     }

##</code><code>##

  my $Big_Regex=join "|",@patterns;
  $Big_Regex=qr/$Big_Regex/;

##</code><code>##

  for (@patterns) {
     if ( instr($incoming{'text'},$_) > -1 ) { 
         ....
     }
  }