while (my $line = <$fh>){
  chomp $line;

  $line =~s:\b(MFG|DOME/GT|OG)\b::go;

  push(@lines, $line);
}