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