$textarea =~ tr/\n/<BR>/s;