$ perl -wMstrict
my $t = "dir \"C:\\ProgramData\\Test1\\Test Folder\"";
print "T is '$t'\n";
__END__
T is 'dir "C:\ProgramData\Test1\Test Folder"'