while ($text =~ m/(\x08+)/g) {
  substr($text, $pos-2*length($1), 2*length($1), '');
}
print $text, "\n";