perl -lw         -Xe'{"#!/Once/upon/a/time"}
$L=qq~http://wall.org/\~larry/natural.html~;
require(HTTP::Tiny);$_=HTTP::Tiny->new->get(
$L);$_=$_->{content};$a=0;for(/<H3/g){push@_
,++$a} @_=sort{rand($a)<=>rand($b)}@_;$a=pop
@_;@_=split/<H3>/;($_=$_[$a])=~s/<[^>]+>//g;
system("clear");$_=~s/^([^\n]+)/\0\033\[1m$1
\033\[0m/x;print;;print$L;$A=$R**$R**$Y;WALL
#__END__ And they lived happily ever after.'
[download]