[Криптография] Вхождение фразы в текст

$sText = "Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Aenean commodo ligula eget dolor. Aenean massa. Cum sociis natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus. Donec quam felis, ultricies nec, pellentesque eu, pretium quis, sem. Nulla consequat massa quis enim."

Dim $aWords[10] = ['nascetur','ultricies','text','somthing else',5]

#include 'array.au3'
$sText = "Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Aenean commodo ligula eget dolor. Aenean massa. Cum sociis natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus. Donec quam felis, ultricies nec, pellentesque eu, pretium quis, sem. Nulla consequat massa quis enim."
$str=StringRegExp($sText,'nascetur|ultricies|text|somthing else',3)
_ArrayDisplay($str)

$sText = "Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Aenean commodo ligula eget dolor. Aenean massa. Cum sociis natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus. Donec quam felis, ultricies nec, pellentesque eu, pretium quis, sem. Nulla consequat massa quis enim."

If StringRegExp($sText, 'nascetur|ultricies|text|somthing else') Then
	ConsoleWrite('Yes' & @LF)
Else
	ConsoleWrite('No' & @LF)
EndIf