$zeile=~s/>!(<\/b>)/><\/b>/ig;