Select Code to Download

my @Val = qw(aaa bbb ccc);

my $str = 'TESTDATA_BETA$Val[1]_DEFL$Val[2].$Val[0]';
...
if ($str =~ s/(\$[^]]+\])/$1/gee) {
   print "$str\n";
}