It is interesting, that your thinking in general can affect the code you produce. I am only a beginner at perl, however, I received light in this vision of Optimistic Expression through Perl.

#!/usr/bin/perl -w
# 
# This dawned on me, that you can tell a persons
# outlook on life, based upon the way they use their
# Regular expressions.
#
#########################################
use strict; #philosophy

my $answer = 555;

# watch the mind of a pessimist, always thinking
# negative.

if ($answer !~ /\d+/) {
    print "Pessimist";
} 

# Now the optimist

if ($answer =~ /\d\d\d/) {
    print "Optimist";
}

print "\nTest your Perl monk friends, do they always think negative?\n
+";
[download]