prima di unirle :

codice = substr($codice,0,-1)..