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

##</code><code>##

print map{s/\?$/? /?print(STDERR)&&(<>=~/.*/g)[0]:split('\|')&&$_[rand@_]}
map{split/\[(.+?)\]/}<>

##</code><code>##

#!/usr/local/bin/perl

print map{s/\?$/? /?print(STDERR)&&(<>=~/.*/g)[0]:split('\|')&&$_[rand@_]}
map{split/\[(.+?)\]/}<>

##</code><code>##

Hello [world|planet|dude|there], [Name?]!

##</code><code>##

print map{if(s/\?$/? /){print STDERR;(<>=~/.*/g)[0]}@z=split/\|/;$z[rand@z]}
map{split/\[(.+?)\]/}<>

##</code><code>##

# Under Construction