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";