my $aha = 'upon';
my $oho = 'a';
my $text = 'once $aha $oho time';
$text =~ s/\$(\w+)/${$1}/g;
print $text;