regsub: Fix regsub -all with \A

regsub -all matches \A against the start of each match, but
correctly handle a pattern like ^ which does not advance the
match

Signed-off-by: Steve Bennett <steveb@workware.net.au>