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