system(
    $^X,
    '"-leprint qq(<$_>) for @ARGV"',
    "\\root\\subdir\\",
    "\\root dir\\sub dir\\",
);

produces:

<\root\subdir\>
<\root dir\sub dir">