$string =~ s/(?=\r?\n|\r)/<br>/g;