my $text = do { local $/; <DATA> };
$text =~ s/\A.*\K\\$//sm;
$text =~ s/\\$/<br>/mg;

##</code><code>##

my $text = do { local $/; <DATA> };
$text =~ s/(.*)\\$/$1/ms;
$text =~ s/\\$/<br>/mg;