Help for this page

Select Code to Download


  1. or download this
    print map{
if(s/\?$/? /){print STDERR;$_=<STDIN>;chop}
@z=split/\|/;$z[rand@z]
}map{split/\[(.+?)\]/}<>
  2. or download this
    print map{if(s/\?$/? /){print STDERR;$_=<>;chop}@z=split/\|/;$z[rand@z
+]}map{split/\[(.+?)\]/}@_=<>