$line2 =~ s/\Q$uri\E/$where/;
open(OUT, ">>$who") or die "Error opening file $who";
- print OUT " <h:backpointer>\n";
+ print OUT " <h:backPointer>\n";
print OUT $line2;
- print OUT " </h:backpointer>\n";
+ print OUT " </h:backPointer>\n";
close(OUT);
}
close(IN);