while (($self->{'prcssed_txt'} =~ s/<([^<>a][^<>]*)([\s]+[^<>]+)*>\s*<\/\1>\n?//)
            || ($self->{'prcssed_txt'} =~ s/<a href[^<>]*>\s*<\/a>//)
            || ($self->{'prcssed_txt'} =~ s/<abbr[^<>]*>\s*<\/abbr>//)
            || ($self->{'prcssed_txt'} =~ s/<acronym[^<>]*>\s*<\/acronym>//)) { }