#!/usr/bin/perl -w                                                                                                                  

use strict;

my (@temp, $temp);

#push (@temp, 'http://ar.geocities.com/beline_barryto/');
#push (@temp, 'http://geocities.yahoo.com.br/gonzalo_vis/');
#push (@temp, 'http://ar.geocities.com/milo_worthington/');
#push (@temp, 'http://au.geocities.com/bradly_tovias/');
#push (@temp, 'http://au.geocities.com/jc_orendorff/');
#push (@temp, 'http://in.geocities.com/lorenzo_cherubino/');
#push (@temp, 'http://es.geocities.com/sylvester_brull/');
#push (@temp, 'http://www.pccc.com/');
#push (@temp, 'http://in.geocities.com/warren_garmon/');
#push (@temp, 'http://ar.geocities.com/raymon_mchendry/');
#push (@temp, 'http://es.geocities.com/direct_access_brokers_4254252');
#push (@temp, 'Re[8]:');
#push (@temp, 'SHORT AND SWEET
#The key to making serious money through investing
#is not to follow the crowd.
#
#A MAJOR PR CAMPAIGN IS UNDERWAY FOR MONDAY AND ALL THIS WEEK! 
#
#Smart Money Equities would like to focus our readers\'
#attention on "The China Potential". Fortunes have been made
#by investing wisely in this exploding economy.  Many US based
#companies have harnessed the power of Chinese production and
#combined it with savvy US marketing and distribution. 
#
#Investment_Alert:  S T R O N G
#EVER_-_GL0RY |NTERNATI0NAL_GR0UP:  E  G  L  Y 
#Current Price: $2.08
#Since Feb 2nd and 3rd Close: UP 0.43 +28%
#Shares Outstanding: 10 Million
#Short Term Target: $3.60
#12month Target: $7
#
#Remember the gains from our recent "S t r o n g  B u y"
#recommendations...
#
#It is only a matter of time before it is released out
#into the investment community and they take it to the moon.
#
#TRADING SYMBOL:  E  G  L  Y
#THIS COMPANY IS MAKING GOOD MONEY!!
#
#Put it on your screen now !!!
#The key to making serious money through investing
#is not to follow the crowd.
#
#This is a MUST Watch for all Investors Monday February 6th. 
#');

push (@temp, 'q=20
V
x=20
I
k=20
A
y=20
G
b=20
R
q=20
A
');

#push (@temp, 'Mon,  6 Feb 2006 11:55:23 -0500');
#push (@temp, 'Sun, 27 Nov 2005 01:03:37 +0000 (Eastern)');
#push (@temp, 'Sun, 27 Nov 2005 01:03:37 -0000');

foreach $temp(@temp) {
  print "\nTesting $temp: ";
 # if ($temp =~ /(?:Xan|Som|CIA|VAL|VIA|Pro|Amb|Lev|Mer) (?:Xan|Som|CIA|VAL|VIA|Pro|Amb|Lev|Mer) (?:Xan|Som|CIA|VAL|VIA|Pro|Amb|Lev|Mer)/i) {
 # if ($temp =~ /^http:\/\/(?:\w{1,5}\.)?geocities(?:\.yahoo)?\.com(?:\.\w{1,5})?(?::\d*)?\/.+?/i) {
 #   print "Ding!\n";
 # } else {
 #   print "Failed!\n";
 # }

  #if ($temp =~ /^Re(?:\s)*\[\d\]+(?:\s)*:?$/i) {
  #  print "Ding!\n";
  #} else {
  #  print "Failed!\n";
  #}

  #if ($temp =~   /(University Administration|University Enrollment|Education Assessment|Faculty Assessment|University Degree)/i && $temp =~  /\d (week|month).*degree/i) {
  #  print "Ding UNIV!\n";
  #} else {
  #  print "Failed UNIV!\n";
  #}

  #if ($temp =~ /(Ever[-_ ]*Gl[o0]ry|E([_\.])?G([_\.])?L([_\.])?Y)/i) {
  #  print "Ding EG!\n";
  #} else {
  #  print "Failed EG!\n";
  #}

  if ($temp =~ /V\n\w=20\nI\n\w=20\nA\n\w=20\nG\n\w=20\nR\n\w=20\nA/is) {
    print "Ding VIAGRA!\n";
  } else {
    print "Failed VIAGRA!\n";
  }

  #if ( $temp =~ /^\s*(?:(?:Mon|Tue|Wed|Thu|Fri|Sat|Sun), )?[0-3 ]?[0-9] (?:Jan|Feb|Ma[ry]|Apr|Ju[nl]|Aug|Sep|Oct|Nov|Dec) (?:[12][901])?[0-9]{2} [0-2][0-9](?:\:[0-5][0-9]){1,2} (?:[+-][0-9]{4}|UT|[A-Z]{2,3}T)(?:\s+\(.*\))?\s*$/) {
  #  print "Ding RFC822 compliant!\n";
  #} else {
  #  print "Failed RFC822 compliant!\n";
  #}

}