-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

=pod

My latest creation:

     lang:Perl
     #!/usr/bin/perl
     $text=do{local$/;<>};@::_=map{"$_  "} split_sentences($text);
     @::_=split/\b/,$text if@::_<2;foreach my$s(@::_){my@abc=split
     /(?:\s+|::)/,$s; map{s/[^A-Za-z]//g}@abc;use Text::Sentence
     'split_sentences';@abc=map{ucfirst lc $_}grep{length $_ > 0}
     @abc;$rm = join'::',@abc;$rm= join'',map{chr(ord(int rand 26)
     +ord'A')}(1..10) if !$rm; $rm.= "::_" while(exists $cba{$rm}); 
     $cba{$rm} = $s; print"require $rm;\n";}print"\n"x100;foreach 
     $k(keys %cba){print"package $k;\nsub pm {\"";print quotemeta 
     $cba{$k};print"\";\}\n";}print<<'BEGIN';# Jonathan Rockway
     BEGIN {@INC=(sub{print eval"@{[join '::', split/\W/,$_[1]]}";
     open*DATA,"<$0";*DATA});}
     BEGIN

Enjoy!
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.6 (GNU/Linux)

iQCVAwUBRcAFpNAZeFPdJeQvAQJANwP+M2eUcGOblVgZcIBOpQ8B75lbizINnJbN
lOlIozm38qB9lTciuYvF+nUl6QDuesD9kyaabnNZc8iv74zd2CaWpRWi38y9po6F
dUAyHnrRDuJBrjmddjX967/fuSaAC6UY5cUl1L+dApylye/BPxJaixL7t250hmNa
ITPlkrE9/bw=
=+MC4
-----END PGP SIGNATURE-----