${^MATCH} variable with /p modifier

match-variable.pl

#!/usr/bin/env perl
# Captured $1 vs. ${^MATCH}
use strict;
use warnings;
use Benchmark ':all';
use Test::More 'no_plan';

my $q = 'neko-nyaan-cat';

sub cv {
    my $v = shift; $v =~ /(n[a-z]{4})/;
    return $1;
}

sub mv {
    my $v = shift; $v =~ /n[a-z]{4}/p;
    return ${^MATCH};
}

is cv($q), 'nyaan';
is mv($q), 'nyaan';

printf("Running with Perl %s on %s\n%s\n", $^V, $^O, '-' x 80);
cmpthese(6e6, {
        '$1' => sub { cv($q) },
        '${^MATCH}' => sub { mv($q) },
    }
);

__END__
Running with Perl v5.30.0 on darwin
--------------------------------------------------------------------------------
               Rate        $1 ${^MATCH}
$1        1916933/s        --       -9%
${^MATCH} 2097902/s        9%        --

Running with Perl v5.32.0 on darwin
--------------------------------------------------------------------------------
               Rate        $1 ${^MATCH}
$1        1929260/s        --       -6%
${^MATCH} 2054795/s        7%        --