Il codice che ti ho scritto fa esattamente questo.
Hai notato che dentro il while ho messo
$stringa .= "..."

e non un echo? Quello l'ho messo solo alla fine e il substr elimina solo l'ultimo carattere della stringa contenuta in $string, ovvero solo l'ultima virgola, non elimina nient'altro.