perl -pe's/{BS}/\b/g;1while s/(^|.)\010//' file