Help for this page
if( substr($v1, 0, 2) eq substr($v2, 0, 2) )
if( (substr($v1, 0, 3) eq substr($v2, 0, 3) ) && substr($v1, 1 ,1) eq '.' && substr($v2, 1 ,1) eq '.' )
if( substr($v1, 0, 3) eq substr($v2, 0, 3) )