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