Re^2: ascii problem

[chibiryuu]

And more "Just because..."

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