#!/usr/bin/perl
#
# http://www.regular-expressions.info/captureall.html
#
use warnings;
use strict;
my $text = 'abc FOOFOOBARFOOBAZ etc';
if ($text =~ /(FOO|BAR|BAZ)+/) {
print "$1\n";
# BAZ
}
if ($text =~ /((?:FOO|BAR|BAZ)+)/) {
print "$1\n";
# FOOFOOBARFOOBAZ
}