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