正则表达式请教

原来那是字面意义上的三个点啊。

perl-rename 's/^(\d+). ((?! ...).+) ...(.+).flac$/\1\3-\2.flac/' *.flac