$self->{'prcssed_txt'} =~ s/<a(\s+[^<>]*[name|id]=[^<>]+>\s*<\/a>)/<<$1/g;
    while ($self->{'prcssed_txt'} =~ s/<([^<>]+)(\s+[^<>]+)*>\s*<\/\1>\n?//) { }
    $self->{'prcssed_txt'} =~ s/<</<a/g;