Okay... it's a homework question, but a good one.
How can I re-write this program to use $_ instead of $word, without actually using the magic variable "$_" explicitly ?
foreach my $word (split /\s+/, $line) {
$word =~ s/microsoft/monopoly/gi;
print $word if $word =~ /yes/;
}