my @result = $string =~ /^([^\.]\.[^\.])(:?\.([^\.]))*$/;