readable perl contest (thing)

#!/usr/bin/perl
OBFUSCATION;
by: Will_Woods;

obfuscation? listen well, child:
tell the world, and rejoice; 
for $perl (can-be) {beautiful};

my $mind = 'clear' and my $thoughts = 'pure', thus;
my $perl = 'readable'. 

$but; if (tired or hurried or lazy) {
  print $perl = 
  (split(//,$thoughts))[1].chr(ord((split(//,$mind))[1])+2).$perl,"\n";
}

# obfuscation; 
# a perl poem by wwoods@cowofdoom.com
# 12/27/2000

(yes, this is actual perl. you can actually run this script. The ugly, second-to-last line prints "unreadable". makes sense, right?)