Programming

Can anyone break this down for me?

Code:

if (!(-e $cfg_file)) {
    if ($ENV{'WINDIR'}) {#windows
    $pt = $ENV{'SCRIPT_FILENAME'};
    $pt = $ENV{'PATH_TRANSLATED'} if $ENV{'PATH_TRANSLATED'};
        $pt =~ s/\\/\//g;
    @m = split(/\//,$pt); pop @m;
    $cfg_file  = join("\x2F",@m).'/formprocessorpro.cfg';
    }
    $cfg_file =~ s/\/\//\//g;
    }

I cannot figure this one out

thanks!

1) Test if the file contained in the variable "$cfg_file" exists, if it does...
2) If the system environment has a variable called "WINDIR" ...
3) Put the contents of the system environment variable "SCRIPT_FILENAME" into the perl var "$pt"
4) Put the contents of the system environment variable PATH_TRANSLATED into the pel var "$pt" only if the variable exists in the system environment.
5) Change all the backslashes (\) into forward slashses in the variable "$pt"
6) Split up the path contained in the perl variable "$pt" into parts and put them in the array "@m", then remove the last path part on the right, for eg, "/one/two/three" would remove the "three".
7) Join up the paths again, putting a forward slash inbetween (0x2f is a forward slash character) and append the string '/formprocessorpro.cfg', and put the result into the perl var "$cfg_file"
9) Replace "//" for "/" (incase there are any double slashes in the string) and put into "$cfg_file".

You are awesome citaylar, this is a big help :-)

thanks!