# Perl never makes variables out of group names; a match fills the %+ hash.
use strict;
use warnings;

if ("released 2025-12" =~ /(?<year>\d{4})-(?<month>\d\d)/) {
    print "  \$+{year} is $+{year}, \$+{month} is $+{month}\n";
}