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

END_REMARKS