Natural Language Principles in Perl

[Anonymous Monk]

#!/usr/bin/perl   -lw    #!/Once/upon/a/time
$_=qq~http://wall.org/\~larry/natural.html~;
require(HTTP::Tiny);$_=HTTP::Tiny->new->get(
$_);$_=$_->{content};$a=0;for(/<H3/g){push@_
,++$a}use List::Util qw/shuffle/;@_=shuffle(
@_);$a=pop@_;@_=split/<H3>/;($_=$_[$a])=~s/<
[^>]+>//xgx;system('clear');$_=~s/^([^\n]+)/
\033\[1m$1\033\[0m/x;$a=$a**$a/$a**$a;print;
__END__
And they lived happily ever after.