Hello, I have not posted much, but I have enjoyed all the information about making unattended Windows CD's here. I was annoyed at renaming the KBXXXXXX.exe files to update my svpack.inf file I wrote a little perl script to auto rename files once you download them. I know most of you already probably had a solution to this. I am just starting perl so if you find any better to the solutions or suggestions feel free to comment. Hope this may help some one. kypumper #!C:\PERL -w ############################################################################ #### Written by kypumper feel free to modify or comment #################### #### email suggestions to kyumper+msfn@gmail.com ########################### ############################################################################ $i=0, ############################################################################# ### uncomment the chdir function if you want to specify a dir where you hotfix files are located otherwise run this ### ### script in the same dir as your hotfix files. ############ ############################################################################# #chdir ("New Ones") || die "cannot change dir: ($!)"; @oldfiles = glob "Windows*.*"; ############################################################################## ### This Loop matches files that match "KB and have digits that follow" ###### ### then extracts just that part of the filename so the oldfiles array can ## ### be renamed with the newfiles array. ###################################### ############################################################################## foreach (@oldfiles) { $_ =~ /(KB[\d]+)/; $newfiles[$i] = "$1.exe"; ##### Testing to see if file exists ######## if (-e $newfiles[$i]) { warn "Can't rename $oldfiles[$i] to $newfiles[$i] exists \n"; } ##### Renaming File and printing a success indication ########### elsif (rename $oldfiles[$i], $newfiles[$i]) { print "Renaming $oldfiles[$i] to $newfiles[$i] \n"; } ##### Warning if program cannot rename files ###### else { warn "rename $oldfiles[$i] to $newfiles[$i] failed: ($!) \n"; } ### Increments thru the arrays ###### $i++; ### End of foreach loop ############# } #### Warns if No Files were parsed ############ $match=@newfiles; if ($match < 1) { print"No Files Matched to parse! \n"; }