my @strs = qw/fooxx baryyyy bazzzzzzz/;
s{ ( (.) \2+ ) \z }(substr($1, 0, length($1) / 2))ex, print
  for @strs;

__output__

foox
baryy
bazaaa