$text =~ s|\n\n|<br /><br />|sg;
$text =~ s|\n{2}|<br /><br />|sg;