perl -e "@wp=split ';', $ENV{path};@wp=map {s#\\#/#g; $_;} @wp; @PP=($uROOT=$ENV{'HOMEDRIVE'})? map {s#\A$uROOT##i; s#\A([^$uROOT]) (?:\:\/)#'/'. lc $1 .(($1 eq $uROOT)? '':'/')#xei;$_;} @wp : @wp; @PP=map{s#\:##; $_;} @PP; print join qq'\n', @PP;"