$text =~ s#\n#<br>#g;