foreach my $address (@email_addresses) {
	return unless ($address =~ /[a-zA-Z0-0.]+\@[a-zA-Z0-0.]+/);

	# proceed normally...