my @splits = split(/\./,$string,-2);