This can be solved much more generically in Perl 6 with mutator methods and topics:

    print "$_\n" for map { .=subst(/er/, 'aler', :global) } @w;
[download]

But what you're really asking for is something other than map here, I think...