That all seems pretty good now, but you can still improve the special case (-1) regexp a little.

$propstr =~ /.*\((.*?)\)/;
[download]

Can't help with anything else, I'm afraid.

Jasper