$_ = "hello\b\b\b\b\b\b\hello\b\b";
tr/\b//d;
print length($_), $/, $_, $/;
__DATA__
10
hellohello