Select Code to Download

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

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

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

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