Select Code to Download

$ perl -e " dd\@ARGV " -- "ro""shambo"
["ro\"shambo"]

$ perl -e " dd\@ARGV " "ro""shambo"
["ro\"shambo"]

$ perl -MDevel::PL_origargv -e" dd( Devel::PL_origargv->get ) " "ro""s
+hambo"  "ro "" shambo"
(
...
  "shambo",
)

diff -ruN Win32-0.45/Win32.xs Win32-0.45066/Win32.xs
--- Win32-0.45/Win32.xs    2012-08-13 16:06:21.000000000 -0700
+++ Win32-0.45066/Win32.xs    2012-12-08 06:46:20.593750000 -0800
...
+    newXS("Win32::ArgvW", w32_ArgvW, file);
     XSRETURN_YES;
 }

$ perl -Mblib  -MWin32 -e " dd( Win32::ArgvW() )" "ro""shambo"  "ro ""
+ shambo "
(
  "perl",
...

$ perl -Mblib  -MWin32 -e " dd( scalar Win32::ArgvW() )" "ro""shambo" 
+ "ro "" shambo "
"perl -Mblib  -MWin32 -e \" dd( scalar Win32::ArgvW() )\" \"ro\"\"sham
+bo\"  \"ro \"\" shambo \""