perl -pe's/\{BS\}/\b/g;1while s/.?\cH//' file