>>681
$other =~ s/\r?\n/<br>/g;

その処理の前に & < > も変換しとかないとね