if ($value !~ /^\d{2}$/)
{
print "input contains more than two digit";
}