#!/usr/bin/perl
open IN, "list.old";
open OUT, ">list.html";
while(<IN>){
s/ment\">/ment\">Phillips 66 <!petroleum>--/;
s/<\/tr>//;
print OUT;


}