@a = qw/red cyan yellow blue why do you want this at all/;
/y/ and /w/ and print "$_\n" for @a;