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