##
>perl -e "use Win32; print Win32::ExpandEnvironmentStrings('OS')
OS
>perl -e "use Win32; print Win32::ExpandEnvironmentStrings('%OS%')
Windows_NT
>perl -e "use Win32; print Win32::ExpandEnvironmentStrings('OS=%OS%')
OS=Windows_NT
####
>echo %VAR%
%OS%
>perl -e "print $ENV{var}
%OS%
>perl -e "use Win32; print Win32::ExpandEnvironmentStrings('%VAR%')
Windows_NT