{
    local ($/,$_) = ('=+=+=+=+=+=+=+=+=+=+=+');
    while (<>) {
        s/<\s*?B\s*?l\s*?u\s*?e\s*?b\s*?i\s*?r\s*?d\s*?>.*$//s;
        print
    }
}