If you really want to obfu it:

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

But I am sure that there are better solutions.
Yours,