Select Code to Download

#    my @split = split /\n|\r/, $message;
    my @split = split /[\n\r]/, $message;
...
        $_ =~ s/[\n\r]$//sig;
        print "BLA ... \"$_\" <br />";
    }

BLA ... "== another main header"
BLA ... "
"
...
==== a sub-sub header
g
dsfgdsf