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