$string =~ s/\$(\w+)/ ${$1} /xeg;

##</code><code>##

                print " ----------------- " . $ref->{attribute} . "\n"

##</code><code>##

my $string = $ref->{attribute};
my $output = eval $string;
if($@){
  die "problem with eval: $@";
}
 print " ----------------- $output\n";