#***********************
# Perl ActiveX Script
#***********************
sub Main()
{
use Win32; #allows for MsgBox functionality
use OLE;
$file1 = "c:/foo/sub_list.txt"; 
$file2 = "c:/foo/cust_names_city.txt";
$file3 = ">c:/foo/cust_names_city_new.txt";

open (SUBLIST, $file1) || die MsgBox("Can't open file"); 
open (CUSTLIST, $file2) || die MsgBox("Can't open file");
open (NEWCUSTLIST, $file3) || die MsgBox("Can't open file");
@pairs = <SUBLIST>;
@names = <CUSTLIST>;

foreach $pair (@pairs) 
{
($key,$value) = split (/=/, $pair);
  chomp ($value);
 
   foreach $name (@names) 
   {
    $name =~s /\s$key/$value/ig;
    @newrecords = (@newrecords,"$name");
   }
}

foreach $newrecord (@newrecords)
{
 print NEWCUSTLIST $newrecord;
}
close (SUBLIST);
close (CUSTLIST);
close (NEWCUSTLIST);
 return 0;     # DTSTaskExecResult_Success;
}

******************************************