tags:

Regex Capture Groups in Perl

Parse a date string with named capture groups.

Author: chris

// Language: Perl

#!/usr/bin/perl
use strict;
use warnings;

my $s = "Date: 2026-05-12";

if ($s =~ /(?<y>\d{4})-(?<m>\d{2})-(?<d>\d{2})/) {
    print "Year=$+{y} Month=$+{m} Day=$+{d}\n";
}