#!/usr/bin/perl
use strict;
use warnings;

my $usr_str = "{depTar}{name}";

my $xml = { 'depTar' => { 'name' => 'c_p20', 'loc' => 'srvr1' }};

my $dyn = '$xml->' . "$usr_str";

print eval $dyn;