#!/usr/bin/perl

use strict;
use warnings;

use Storable qw(dclone);
use Data::Dumper;

my $str = "Rico";

$str =~ m{(?<name>ico)}xms;

my $match = dclone \%+;

print \%+,"\n";
print "match:  $match\n",  Dumper($match);

$str =~ m{(?<buba>R)}xms;

my $match2 = dclone \%+;

print \%+,"\n";

print "match:  $match\n",  Dumper($match);
print "match2: $match2\n", Dumper($match2);