Select Code to Download

my $clear = "\x08 \x08";
while (not $finished) {
...
  do_more_stuff();
  print $clear x length($string);
}