here's your answer:

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

and please format your question befor submitting it.

Thanks.

Hotshot