It sounds like you don't need a regexp at all, just

substr($_, 10, 1)=',';
[download]

(watch out for 0-based offsets!) If you really want a regexp solution, you could do something like

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