$AGE = 17;
$text = 'I am $AGE years old';      # note single quotes
$text =~ s/(\$\w+)/$1/eeg;           # print I am 17 years old
$text =~ s/(\$\w+)/$1 * 2/eegx;  #I tried to double the age, but failed