perl -we "print join qq'\n', split ';', $ENV{path}"