Select Code to Download

my $reg = '99';
my $replace = 'XX';
...
$line =~ s/(12345)($reg)(12345)/$1$replace$3/;

print $line, "\n";

0165451234599123459935589
01654512345XX123459935589
01654512345XX123459935589