if( substr($v1, 0, 2) eq substr($v2, 0, 2) )

##</code><code>##

if( (substr($v1, 0, 3) eq substr($v2, 0, 3) ) && 
    substr($v1, 1 ,1) eq '.' && substr($v2, 1 ,1) eq '.' )


##</code><code>##

if( substr($v1, 0, 3) eq substr($v2, 0, 3) )