When I was walking down the [street|boulevard|avenue] a large
[squirrel|frog|lemur|llama] [leaped|jumped|ran|crawled] out and
[bit|mauled|chewed|spit at] me!
You'd never believe what [Name?] said!

##</code><code>##

% perl madlib sample.madlib
Name? George Jetson
When I was walking down the avenue a large llama jumped out
and bit me!
You'd never believe what George Jetson said!

##</code><code>##

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