$text =~ s/\r?\n/<BR>/g;