Help for this page
my $reg = '99'; my $replace = 'XX'; ... $line =~ s/(12345)($reg)(12345)/$1$replace$3/; print $line, "\n";
0165451234599123459935589 01654512345XX123459935589 01654512345XX123459935589