#!/usr/bin/perl -Tw

use strict;

my @Monks_met = ( "abaxaba", "easyasy2k", "frag", "petdance", "SparkeyG", );

my @OReilly_Perl_books_I_own = ( "learning", "intermediate", "practices", "testing", "programming", "cookbook", "nutshell", "xml", "sysadmin", "graphics", "spidering", "cs", "regexes", "algorithms", "advanced", "pocket", "regex_pocket", "debugger", );

my @Noteworthy_Perl_URLs = ( "useperl", "cpm", "perldoc", "perlmonk", "monkstats", "cblast35", "cbstats", "apache", "mod_perl", "regex", "effective", "glue", "wiki", "stages", "perl_freak", "perlgeek", "pleac", "perligata", "extreme_perl", "higher_order_perl", "rathman", "kuhn", "List::Cycle", "patterns", );

print <<'END_REMARKS';

-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GAT d++(--) s-:>+: a!>? C++(++++) USLI*++>++++ P++(+++)>+++ L+(+++)>++++ E----(-)>+++ W++$>+++ N+ o? K? w(+)>++++ !O M(+)>++ V PS(+) PE(-) Y+ PGP(+) t(+) 5- X(++) R@ tv-(++) b+(++) DI-(+++) D+ G(+) e+++>++++ h(+) r>++ y?
------END GEEK CODE BLOCK------

-----BEGIN PERL GEEK CODE BLOCK-----
Version: 0.01
P(++)>++++ c?>+++ P6->++ R>+++ M>++ O>+++ MA-->+++ E-->+++ PU!>++++ BD>+++ C>++ D>+++ S-->+++ X>+++ WP+>+++ MO(+)>++ PP(+++)>++++ n>+++ CO-->- PO!(--) o G! A->++++ OLC+>++ OLCC+>++ OLJ++(+++)>* OLP+>++ OLR+>++ OLCO--- OLS--- OLL+>++ OLA-- Ee----(---) Ev-()>+++ Eon- Eot! Eob Eoa- uL+>+++ uB+ uS+ uH! uo+ w>+ m osA- osBE!
------END PERL GEEK CODE BLOCK------

-----BEGIN PERL STYLE GEEK CODE BLOCK-----
Version: undef
I4 On0 ;0 S,><.><+>**<=><&&><and>++<gt><==> B1 L2 C0 P3 N> R1 Vl(en)c3a1p(s0h0a0)r0d1 Hsw sub-main
------END PERL STYLE GEEK CODE BLOCK------

-----BEGIN JAVA GEEK CODE BLOCK-----
Version: 0.01b
J++>+++$$** Fws+ Epvbd$ Cu+ j+ Il+* Ahit+* X U+>+++* V-(+)
------END JAVA GEEK CODE BLOCK------

The Cheesy Webring! You have the right to free cheese.

previous, next, random, list, next5, prev5, first, last

don't blame me for this idea, it's ar0n's fault!