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