Search notes:

Perl regular expressions: repeating capturing group vs capturing repeating group

#!/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
}
Github repository about-perl, path: /regular-expressions/repeating-capturing-group_vs_capturing-repeating-group.pl

See also

Perl regular expressions
http://www.regular-expressions.info/captureall.html

Index