for (my $i=1; $i<=$messages; $i++){
	foreach(	$pop->Head($i)){
		if($_=~/From:[^<>]*\<(.*)\>/){
			print "From: $1 ";
			$emails[$i]->{'from'}=$1;
		}
		if($_=~/Subject:(.*)/){
			#print "To: $1 ";
			$emails[$i]->{'subject'}=$1;
		}
	}
	my $body=$pop->Body($i);
	$body=~s/\n/ /g;
 	$body=~s/\r/ /g;
		
 	$body=~s/^.*\<body[^<>]*\>(.*)/$1/;
 	$body=~s/(.*)\<\/body[^<>]*\>.*$/$1/;
 	while($body=~/[<>]/){
 		$body=~s/\<[^<>]*\>(.*)/$1/;
 	}
 	$body=~s/&#8217;/\'/g;
	$body=~s/&#39;/\'/g;
	$body=~s/\=92/\'/g;
	$body=~s/\=A0/ /g;
 	$body=~s/\=\s //g;
 	$body=~s/\&nbsp;/ /g;
 	$body=~s/\s{2,}/ /g;
 	$emails[$i]->{'body'}=$body;
 	
	#$pop->Delete($i);
	print "Message: ".$body."\n\n";
}
$pop->Close();