http://www.perlmonks.org?node_id=1013290


in reply to Re: using map and swap (aka substitute)
in thread using map and swap (aka substitute)

my @newList = @list; s/_string$// for @newList

Or just:

s/_string$// for my @newList = @list;