Help for this page

Select Code to Download

Select or download this

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*<\/acron
+ym>//)) { }