>perl -wMstrict -le
"my $s = '---------xxxxxxxxxxxxxxx------yyyyyyyyyyyyyy--------';
 print qq{'$s'};
 ;;
 $s =~ s{ (?: \G | (?= -+ \z)) - }'?'xmsg;
 print qq{'$s'};
"
'---------xxxxxxxxxxxxxxx------yyyyyyyyyyyyyy--------'
'?????????xxxxxxxxxxxxxxx------yyyyyyyyyyyyyy????????'