Как я могу выполнить глобальное регулярное выражение в Perl?

Я пытаюсь придумать регулярное выражение в Perl, сопоставляющее несколько шаблонов и возвращающее все из них, как preg_match_all в PHP.

Вот что я имею:

• Подтвердите имя пользователя как буквенно-цифровое с символами подчеркивания
• Регулярное выражение Htaccess для соответствия любому символу
• Регулярное выражение для всей строки
• preg_replace выражение тегов стиля
• php regex или | оператор

 $str = 'testdatastring'; if($str =~ /(test|data|string)/) { print "its found index location: $0 $-[0]-$+[0]\n"; print "its found index location: $1 $-[1]-$+[1]\n"; print "its found index location: $2 $-[2]-$+[2]\n"; print "its found index location: $3 $-[3]-$+[3]\n"; } 

Это дает мне только первое совпадение, в котором это «тест». Я хочу иметь возможность сопоставлять все вхождения указанных шаблонов: «test», «data» и «string».

Я знаю, что в PHP вы можете использовать preg_match_all для этой цели:

 if(preg_match_all('/(test|data|string)/', 'testdatastring', $m)) { echo var_export($m, true); } 

Вышеупомянутый PHP-код будет соответствовать всем 3 строкам: «test», «data» и «string».

Я хочу знать, как это сделать в Perl. Любая помощь будет принята с благодарностью.

 preg_match_all('/(test|data|string)/', 'testdatastring', $m) 

 @m = ("testdatastring" =~ m/(test|data|string)/g); 

 $_ = "alpha xbetay xgammay xdeltay so on"; ($first, $second, $third) = /x(.+?)y/g;