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