my ($val1, $val2) = split /\.(?=[^.]*$)/, $string;