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