$file = "/home/user/.profile"; grep(do{chop;s/(.*)=(.*)/$ENV{$1}=$2/e;},`. $file; env`);