PATH=$(perl -e 'print join ":", grep -d, split ":", $ENV{PATH}')
but that's because as a 20 year perl hacker and thus connoiseur of line noise, I'd rather read that than the shell clever.(this doesn't mean the shell clever is bad, it just means I don't find -that- dialect of line noise as skimmable)