+ $line =~ s/<p>\s*(?!\n)/<p>\n/g;
+ $line =~ s/<\/p>\s*(?!\n)/<\/p>\n/g;
+ $line =~ s/<\/div>\s*(?!\n)/<\/div>\n/g;
+ $line =~ s/<div([^>]*)>(?!\n)/<div$1>\n/g;
+ }
+
+ for ($i = 0; $i < scalar(@text); $i++)
+ { splice @text, $i, 1, (split /(?<=\n)/, $text[$i]); }
+
+ $thisdiv = 0;
+
+ for ($i = 0; $i < scalar(@text); $i++)
+ {
+ if ($text[$i] =~ /^(.*?)<a( xmlns="[^"]+")? id="([^"]+)"><\/a>(.+?)<\/h(.*)$/)