Регулярное выражение в функции индекса

Я ищу возникновение «CCGTCAATTC (A | C) TTT (A | G) AGT» в текстовом файле.

$ Text = 'CCGTCAATTC (A | C) TTT (A | G) AGT'; Если ($ line = ~ / $ текст /) { Comomp ($ Line); $ pos = index ($ line, $ текст); }

В поисках работает, но я не могу получить позицию «текста» в строке. Кажется, индекс не принимает регулярное выражение в качестве подстроки.

Как я могу сделать эту работу. Спасибо