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