use 5.012;

my $string = "---------xxxxxxxxxxxxxxx------yyyyyyyyyyyyyy--------";
say $string;
$string =~ s/(\A\-+|\-+$)/'?' x length $1/eg;
say $string;