#!/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. [download]
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]
www.com | www.net | www.org
No recent polls found
