Forums Scripts & Popups putting stuff in... _-_;

Unless that char is a number, in which case \ $+ $2 would be empty. To cover this case, I'd use
$regsub($1,/(?<=.)(?=.)/gs,$replace($2,\,\\,$,\$),%x)