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
+";