Perl сопоставить несколько слов с пробелом

Question

Я пытаюсь найти все подходящие слова, которые начинаются со следующего, и игнорирую их

Delta Asset Management
Viger
Double binding
Base camp lift

Я попробовал это через это регулярное выражение, но не получил правильный результат.

if ($row =~ m/^(Delta Asset Management|Viger|Double binding|Base camp lift)/){ return undef; }

Answer 1

измените регулярное выражение, чтобы удалить ^ и добавить /g (global), например:

/(Delta Asset Management|Viger|Double binding|Base camp lift)/g

Демо

или, если вам нужно сохранить ^, добавьте /m (многострочный вариант), например:

/^(Delta Asset Management|Viger|Double binding|Base camp lift)/gm

Демо