$entry =~ s/\n\n/<P>/g;
$entry =~ s/\n/<br>/g;