in reply to No explicit $_ ?
lately, I'm becoming addicted.
print grep { /yes/; } map { s/microsoft/monopoly/gi; } split /\s+/, $line; [download]
print grep{/yes/&&s/microsoft/monopoly/gi}(split /\s+/, $line); [download]
$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s, $_^=q,$\^-]!,,print [download]