here

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


Bryce