$string =~ s/\A(-+)|(-+)$/("?" x length $1).("?" x length $2)/eg;