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(/
rand($b)}@_;$a=pop
@_;@_=split//;($_=$_[$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.'