$_ = qr/\Q$_\E/ for @ignore; # precompile regexes
foreach my $line (@words){
   $line =~ tr/A-Z/a-z/;  # or lc()
   foreach my $ignore (@ignore){
      $line =~ s/$ignore//g;
   }
}