Select Code to Download

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;