こういうことがしたいんだけど

#!/usr/local/bin/perl                                                                                                                          
use strict;
no strict 'refs';
my $str = '<% hoge %>_<% moe %>';

my $hoge = "HOGE";
my $moe = "MOE";
$str =~ s/<% (\w+) %>/${$1}/g;

print $str;

これで HOGE_MOE になってほしい。たったそれだけなんだがなぁ。。