- $part[1] //= '';
- $part[2] //= '';
- $part[3] //= '';
- if ($part[1] =~ /[,.]/) {
- $ip = $part[1];
- $part[1] = $part[2] = 0;
- } elsif ($part[3] =~ /[,.]/) {
- $ip = $part[3];
+ my $version = $part[1] || 0;
+ my $build = $part[2] || 0;
+ $build =~ s/\D+//g;
+ my $ip = $part[3] || '';
+
+ if ($version =~ /[,.]/) {
+ $ip = $version;
+ $version = 0;