정규표현식 질문 드립니다. 연속되는 글자 찾기

my $str = "---------- ---- -- - - - -----------";
 
while ( $str =~ /(-{1,9})               # "-"가 1~9개 연속으로 있고
                 [ ]?                   # 공백이 있거나 없거나
                 (??{                   # 정규식 내에서 코드를 실행
                     "-{"               #   이건 그냥 스트링
                     .
                     (10 - length($1))  #   앞의 -덩어리의 길이를 10에서 뺌
                     .
                     ",}"               #   이것도 그냥 스트링
 
                                        # 만일 앞에 "-"가 4개 있었다면,
                                        # 이 안의 코드의 결과는
                                        # "-{6,}" 이 되고, 이걸 리턴해서
                                        # 전체 정규식에 합치니까
                                        # -{1,9}[ ]?-{6,}
                                        # 이라는 정규식이 임시로 구성됨
                     })
                /gx ) {                 
    print "[$&]\n";
}

[----------]
[- -----------]   <-- 이게 매치되는 게 원하시는 거죠?