Unpack wchar from pointer

Greetings.

I'm writing pure Perl module that works with Win32 *W functions and,
naturally, they return pointers to wchars. I can't use unpack with 'p'
because it terminates on first 0, which happens at first symbol
from 0-255 range, instead at end of string. Right now I just
unpack two bytes from memory inside while{ } and shift pointer
until I reach two 0's, but is there better/faster way to do that,
without using XS?

-- 
Oleg "Rowaa[SR13]" V. Volkov