my @out = map {substr ($_, 0, -1) . 'x'} @in; #### aaa bbb ccc => aax bbx ccx