use warnings;
use strict;

my $prog_files_64 = $ENV{ProgramFiles};
my $prog_files_32 = $ENV{'ProgramFiles(x86)'};

print "64-bit: $prog_files_64\n";
print "32-bit: $prog_files_32\n";

##</code><code>##

64-bit: C:\Program Files
32-bit: C:\Program Files (x86)