Mail::Sendmail contains a regex to check for valid addresses that's pretty good, although not complete in a mathematically exhaustive way.