sub short_lc { split( /\./, lc($_[0]),2 ) }