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