Bryce,
Thanks for your input!
I think I had it worked out with a while - do loop, but a single expression is even better.
Since I only want 7 letters of the last name, I think the following modification would work well. What do you think?

$newname = substr(@userid,1,1)+substr(@userid,instr(@userid,".")+1,7)