Select Code to Download

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

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