$textarea =~ s|[\r\n]|<br />|g;