Help for this page

Select Code to Download


  1. or download this
    my $text = do { local $/; <DATA> };
$text =~ s/\A.*\K\\$//sm;
$text =~ s/\\$/<br>/mg;
  2. or download this
    my $text = do { local $/; <DATA> };
$text =~ s/(.*)\\$/$1/ms;
$text =~ s/\\$/<br>/mg;