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