Select Code to Download

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

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

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

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

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

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