Select Code to Download

use 5.012;

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

---------xxxxxxxxxxxxxxx------yyyyyyyyyyyyyy--------
?????????xxxxxxxxxxxxxxx------yyyyyyyyyyyyyy????????