$str =~ s/((?>[^\cH]*))((?>\cH+))/substr $1, 0, length($1) - length($2)/eg;