To change or remove your subscription click here -- http://www.fde.com/myaccount/mymail.asp?eID=a1521989 776964498e"> ##

##

Date:   Tuesday, August 14, 2001  01:57 PM
http://www.fde.com/myaccount/mymail.asp?eID=a15421989776964498e

Date: Tue, 14 Aug 01 03:53:06 Pacific Daylight Time
http://www.fde.com/myaccount/mymail.asp?
eID=a15421989776964498e

##

##

#!/usr/bin/perl -w
use strict;

# What file to use
my $goober = "rfl.txt";

# Open File and pop it into an array
open GOOB, $goober or die "Can't open $goober";
my @goob=;
close(GOOB);

# Make a flag to prevent dupes and start loop
my $flag = 0;
foreach (@goob) {

	if (/Date:/){  #grab and print the date
		print;
		$flag = 0;
	}
	
	if (s#(http://[\w./=\?-]+)#$1#sgi and !$flag and (/myaccount/)) { # grab the url
	
		print;
		$flag = 1;
	}	
}