sub is_email
{
    return sub {
        return $_[0] =~ m{^[-.+a-z0-9]+\@[-.+a-z0-9]+$}i;
    };
}