my $address =~ s/\n/<br>/g;

##</code><code>##

$address =~ s/\n/<br>/g;