@echo off
set > %temp%\env.bat
perl -i.bak -wpe "$_ = q/set / . $_" %temp%\env.bat
notepad %temp%\env.bat
call %temp%\env.bat