for (@w) { s/er/aler/g; print "$_\n"; }