#!/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(/