my $one = qr{      one (?<one> \d+ ) }xi;
my $two = qr{ $one two (?<two> \d+ ) }xi;
"One9Two8Three7"
    =~ m{ $two three (?<three> \d+ ) }xi;

use Data::Dump;
dd \%+;
__END__
{
  # tied Tie::Hash::NamedCapture
  one   => 9,
  three => 7,
  two   => 8,
}