perl -pe's/.?\{BS\}//&&redo' file