Capture Groups

Parentheses capture parts of a regex match so the program can use them later.

capture_groups.pl

use strict;
use warnings;

my $code = ;
my $matched = $code =~ /^([A-Z]+)-(\d+)$/;
my $prefix = $matched ? $1 : "none";
my $number = $matched ? $2 : "none";

print "code=$code\n";
print "prefix=$prefix\n";
print "number=$number\n";

use strict;
use warnings;

my $code = ;
my $matched = $code =~ /^([A-Z]+)-(\d+)$/;
my $prefix = $matched ? $1 : "none";
my $number = $matched ? $2 : "none";

print "code=$code\n";
print "prefix=$prefix\n";
print "number=$number\n";

use strict;
use warnings;

my $code = ;
my $matched = $code =~ /^([A-Z]+)-(\d+)$/;
my $prefix = $matched ? $1 : "none";
my $number = $matched ? $2 : "none";

print "code=$code\n";
print "prefix=$prefix\n";
print "number=$number\n";

capture group A capture group stores the text matched by a parenthesized part of a regex.