use LWP::Simple;

print "Content-type: text/html\n\n";

$URL = "http://www.weedlinks.f2s.com/joeblow.html";

$page = get($URL); 
$page =~ s/\s+/ /g;
@text = split(/\s/, $page); 

foreach $line (@text) {
	if ($line =~ /\@/) { 
	@line = split(/\@/, $line); 
	
	print "@line[0]<br>";
	
	# If you just want to collect whole email address'.
	# Un (#) the next line.
	#print "$line<br>";

	# Or print to a database. Un (#) the next 3 lines.
	#open (DATABASE,">>joeblow.txt");
	#print DATABASE "$line\n"; 
	#close (DATABASE);
	}
}