Select Code to Download

sub string_to_struct {
 my $string = shift;
...
 return \$_[0] unless $_[1] =~ s/^-([\w_]+)//; 
 deref ($_[0]->{$1}, $_[1]);
}

struct_to_string($safe,$safe->{foo},$safe->{foo}{bar});