$s =~ s/(?:[^\cH]\cH|^\cH+)//g while ...