$blah =~ s/[\r\n]+/<br>/g;