or try this!

Code: perl
$message =~ s/\n/<br\/>/g;

But Naveen's suggestion is the best!