for (split(/\s+/, $line)) {
  s/microsoft/monopoly/gi;
  print if /yes/; 
}