$s = "\bthis is an\b correct\b\b\b usage\b";
do 1  while ($s =~ s/(?:[^\cH]\cH|^\cH+)//g);