Substitution inside a loop

[Brian Volk]

Hi All,
 
I have a .txt file which contains item numbers like so..
1234
1245
1278
1240
etc.
I am trying to print the entire url, $main_url after substituting the item
number in the .txt file... I'm having a little trouble w/ my loop...  Below
is the script. 
 
#!/usr/bin/perl -w
 
use strict;
 
my $kc_item = "E:/perl/kc_num.txt";
    open (KCITEM, $kc_item) or die "can't open $kc_item: $!";
 
# my $new_file = "> E:/perl/kc_urls.txt";
 
my $main_url = "
<http://www.kcprofessional.com/us/product-details.asp?search=v1&searchtext=1
804&x=0&y=0>
http://www.kcprofessional.com/us/product-details.asp?search=v1&searchtext=18
04&x=0&y=0";
 
while (<KCITEM>) {  
  print "$main_url\n";
  s/1804/KCITEM/ and print "$main_url\n";
  }
 
close KCITEM;
 
Here is what the output should look like...
 
http://www.kcprofessional.com/us/product-details.asp?search=v1
<http://www.kcprofessional.com/us/product-details.asp?search=v1&searchtext=1
234&x=0&y=0> &searchtext=1234&x=0&y=0
http://www.kcprofessional.com/us/product-details.asp?search=v1
<http://www.kcprofessional.com/us/product-details.asp?search=v1&searchtext=1
245&x=0&y=0> &searchtext=1245&x=0&y=0
http://www.kcprofessional.com/us/product-details.asp?search=v1
<http://www.kcprofessional.com/us/product-details.asp?search=v1&searchtext=1
278&x=0&y=0> &searchtext=1278&x=0&y=0
http://www.kcprofessional.com/us/product-details.asp?search=v1
<http://www.kcprofessional.com/us/product-details.asp?search=v1&searchtext=1
240&x=0&y=0> &searchtext=1240&x=0&y=0
etc.
 
Any help would be greatly apprecitated! 
 
Thanks!
 
Brian Volk
HP Products
317.298.9950 x1245
 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]