#!/usr/local/bin/perl
foreach $i (`find ./ -name "*html" | grep -v not.needed | grep -v docs `){
	chop($i);
#	print "Here's a file to parse:\n$i\n";
	$pattern = "vmusicstore";
#	print "Testing for occurence of $pattern\n";
	foreach (`grep "$pattern" $i`){
		print "\nFound $pattern in $i\n\n";
		$newname="$i.new";
		open(NEWFILE,">$i.new");
		print "Here's its new name:\n$newname\n";
		open(OLDFILE,"<$i");
		while(<OLDFILE>){
			chop;
			s:http\://www4.icat.com/store/vmusicstore/index.icl\?execute=plugins--cart_addtoorder.icl\&amp\;itmid=:http\://www5.icat.com/store/sdam/index.icl\?execute=plugins--cart_addtoorder.icl\&itmid=:g;
			s:http\://www4.icat.com/store/vmusicstore/index.icl\?execute=plugins--cart_addtoorder.icl\&itmid=:http\://www5.icat.com/store/sdam/index.icl\?execute=plugins--cart_addtoorder.icl\&itmid=:g;
			print NEWFILE "$_\n";
			}
		close(NEWFILE);
		system ("mv $newname $i");
		}
	}