my @parts = split /\./, $input;