$str =~ s/\r?\n?/<br\/>\n/g;
$_ =~ s/\r?\n?$/<br\/>\n/ for @array;