if ($_ eq @words) { $_ =~ s/@words/lc @word/g; }