local ($^I,@ARGV)=('.bak','file.html');
my $p=1;
while(<>){
$p-- if /<\/tr>/;
print "Add this line\n" if $p==-4
print if $p;
$p-- if /<tr>/;
}