One minor point: /^[_a-z0-9.-]+\@[_a-z0-9.-]*\.\w\w(\w)?$/i is not an especially robust way of checking email addresses for validity. Use Email::Valid or Mail::CheckUser instead.

--
The hell with paco, vote for Erudil!
:wq