@addresses = $FORM{'remove'} =~/From:\s+(\w+@?[\w\.]+)/sig;


for(@addresses){
	
		print MAIL "$_\n";
		
	}