my $clear = "\x08 \x08";
while (not $finished) {
  my $string = status();
  print $string;   # without a newline!
  do_more_stuff();
  print $clear x length($string);
}