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

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

Вот что у меня есть:

$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";
}

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

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

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

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

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