Select Code to Download

die "horribly" if $usr_str !~ /^(\{\w+\})+\z/;
my $val = eval "\$xml->$usr_str";
print $val;