while ($var =~ /.\^H/) {
  $var =~ s/.\^H//;
}