sub badkcams {
  $a = reverse $s;
  $a =~ s[\cH[^\cH]|\cH$][]g  while  1+index $a, chr(8);
  reverse $a;
}