<?xml version="1.0" encoding="windows-1252"?>
<node id="358403" title="PetaMem's scratchpad" created="2004-06-01 15:03:25" updated="2005-07-27 10:44:36">
<type id="182711">
scratchpad</type>
<author id="89299">
PetaMem</author>
<data>
<field name="doctext">
use strict;
use warnings;

use Storable qw(dclone);
use Data::Dumper;

my $str = "Rico";

$str =~ m{(?&lt;name&gt;ico)}xms;

my $match = dclone \%+;

print Dumper($match);

$str =~ m{(?&lt;buba&gt;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.</field>
</data>
</node>
