Here's mine. 103 chars.

$_=join'',<>;s!\[(.*?)(\??)]!$2?print(STDERR"$1? ")
&&(<>=~/.*/g)[0]:split('\|',$1)&&$_[rand@_]!eg;print
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;