1 while $test =~ s/.\x08//;