damn, that's clever!

 Quote:

join($c, Left(Right($,~),~))
_________________________
The Code is out there