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

##</code><code>##

$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,
$_^=q,$\^-]!,,print