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

  push(@lines, $line =~s:\b(MFG|DOME/GT|OG)\b::go);
}