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