And more "Just because..."

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