use Filter::Interpolate;
use constant TEST => 3;
my $string="123456";
$string =~ s/\Q$(TEST)\E/9/;
print $string, "\n";

$string =~ s/2/$(TEST)/;
print $string, "\n";


##</code><code>##

@HPAJ=split("", "rekcaH lreP rentonA tsuJ");
print reverse @HPAJ;  #sucky but who cares?