while($abc =~ /(wort1|wort2)/gi){ [...]