my @nums = $dotted_num_string =~ /^(\d+)(?:\.(\d+))*$/;

##</code><code>##

my @nums = $dotted_num_string =~ /^(\d+)(\.\d+){3,5}$/;