$ perl -wE'$x="X"x30;substr($x,10,0)="ergaenzung";say$x'
XXXXXXXXXXergaenzungXXXXXXXXXXXXXXXXXXXX