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