$text =~ s/[\s|\n]*//g;

##</code><code>##

    $text =~ s/[ \t\n\r\f|\n]*//g;

##</code><code>##

    $text =~ s/\s+//g;

##</code><code>##

    $text =~ s/^[---]+//;

##</code><code>##

    $text =~ s/^[-]+//;

##</code><code>##

    $text =~ s/^-+//;