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