select *I=*STDERR;$|++;select STDOUT;$_=join('',<DATA>);
s#\[([^\]]*\?)\]#print I"$1 ";chomp($i=<DATA>);$i#ge;
s#\[([^\]]*)\]#@f=split(/\|/,$1);$f[rand@f]#ge;print