#Usage: <Support-File> <Input-File>

undef $/;
open(TEXT, $ARGV[0]) or die $!;
my $text = <TEXT>;
close TEXT;

open(XML, $ARGV[1]) or die $!;
my $xml = <XML>;
close XML;

while($text =~ m/\/(.+)\/([^\/]+)\/[^\/]+$/mgi)
{
	my $FindWord = $1;
	my $ReplaceWord = $2;
	$xml =~ s/(>[^>]*\b)\Q$FindWord\E(\b[^>]*<)/$1$ReplaceWord$2/gi;
}

open(OUTXML, ">$ARGV[1]") or die $!;
print OUTXML $xml;
close OUTXML;