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

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