$string =~ s/\r\n/<br>/g;
or
$string =~ s/\n\r/<br>/g;