my $a = "The quick

brown fox

jumped

over the

lazy

dog";

$a =~ tr/\n\n/\<br\/\>/;
print "$a\n";