substr($_, 10, 1)=',';

##</code><code>##

s/^(.{10})./$1,/;