$root = 'D:\projects\\';
@workspacefiles = split/\n/, `dir *.dsw /s /B`;
s/\Q$root\E(.+)/$1/ for (@workspacefiles);