>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