Since you're using 'say', you have to use '-E' instead of '-e'.

Oops!

it will either remove a leading '(' or a leading '--', '-+', '+-' or '--')

Oops!

[+-]{2} is not equivalent to \+\+|--

Indeed, but I deemed it acceptable.

if you're golfing, you shouldn't make a capture if you aren't using the result.

Not until Perl6. /...(?:...|...)/ is longer than /...(...|...)/. (Multiplying out the leading subexpression would have been shorter, but that's not the issue you raised.)

I take your 69 and give you 51:

perl -nE'/[-+(]*(\S{3,}->\S{5,})/&&say$1' *|sort -u
[download]