sub email
{
    my ($class, $value) = @_;
    return unless $value =~ /^([\w\.\-]{3,})@([\w\.\-]{3,})\.([A-Z]{2,3})$/i);

    return "$1\@$2\.$3";
}

##</code><code>##

my $email = Validate->email( param( 'email' ) );
push @errors, "Missing or invalid e-mail address '$email'\n" unless $email;