Select Code to Download

use Filter::Interpolate;
use constant TEST => 3;
...

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

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