in reply to Perl Code Colorizer
Don't reinvent the wheel! :) We already have Syntax::Highlight::Perl to do that for you, written by our own bbfu.
$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H; print chr($_-39); # Easy but its ok.
In Section
Code Catacombs