my %+;
my %-;
'foo' =~ /(?<w>\w+)/;
'bar' =~ /(?<w>\w+)/;
use YAML;
print Dump \%+;
print Dump \%-;
__END__

##</code><code>##

'foo' =~ /(?<w>\w+)/ && 'foofoo' =~ /\g{w}\g{w}/;

##</code><code>##

'oo' =~ /(?<w>\w+)/ && 'oo' =~ /\g{w}\g{w}/;