#!/usr/bin/perl -w

while (<STDIN>)
{
    chomp;
    if ( $_ =~ /^[a-zA-Z0-9]+(\.[a-zA-Z0-9]+)*@[a-zA-Z0-9]+\.[a-zA-Z0-9]+(\.[a-zA-Z0-9]+)*$/ )
    {
	print "$_ : match !\n";
    }
    else
    {
	print "$_ : NOT match !\n";
    }
}