use constant TEST => 3;
my $string = "123456";

$string =~ s/\Q@{[ TEST ]}\E/9/;
print $string, "\n";             # 129456

$string =~ s/2/@{[ TEST ]}/;
print $string, "\n";             # 139456