Borrowing from samtregar's response, I'd like to extend it in the following way:

while ($test =~ /\x08/) {
  $test =~ s/^\x08+//;
  $test =~ s/[^\x08]\x08//g;
}
[download]

This deals with the problem of the user backspacing past the beginning of the line.

S