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

##</code><code>##

$text =~ s/^(?:---)+//;