PUP=perl -MEnv"=PATH,D0" -le"print join qq/\n/,(grep{($$D0&&s#\A$$D0##i)or s#\A([A-Z]):#/\l$$1#i}map{s#\\#/#g;$$_}split(';',$$PATH))"