http://qs1969.pair.com?node_id=358403

use strict; use warnings; use Storable qw(dclone); use Data::Dumper; my $str = "Rico"; $str =~ m{(?<name>ico)}xms; my $match = dclone \%+; print Dumper($match); $str =~ m{(?<buba>R)}xms; my $match2 = dclone \%+; print Dumper($match); print Dumper($match2); # Why are $match and $match2 identical? I'd expect $match to keep its old value.