my @w = qw/ per coercer berserker / ; print "$_\n" for map { s/er/aler/g; $_ } @w;