perl -we 'use Data::Dumper; "foo" =~ /(.)/; # setzt $1
print Dumper \%::'