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