$text =~ s|\r\n\r\n|<br /><br />|sg;