sub textblock {
my ($self, $text) = @_;
- while ($text =~ s/<(h[1-6]|p|td|th|title|input|span|li|_)[^>]*>(.*?)<\/\1>//s) {
+ while ($text =~ s/<(h[1-6]|p|td|th|title|input|span|li|option|_)[^>]*>(.*?)<\/\1>//s) {
my $id = $2;
next if $id =~ /^\s*$/;
$id =~ s/\n/\\n"\n"/g;