my @out = map { (my $s = $_) =~ s/.$/x/; $s } @in;