my %hash = (AGE => 17,
            );
$text =~ s/\$(\w+)/$hash{$1}/g;