This script won\'t work.

msg $target $regsubex($1-,/^(.)|([?!.:]s?(?!b(?: $+ %ex $+ )b).)/g,$upper(1))

You have $upper(1) which will replace your first letter with a 1.

Also, you can\'t type commands using this script.