if(!defined($mystring)){
    dosumpton("nogames",undef,undef,undef);
} elsif ($mystring){
    ($major,$minor,$bld,$rev) = split(/\./, $mystring);
    if($major){
        if($minor){
            if($bld){
                if($rev){
                    dosumpton($major,$minor,$bld,$rev);
                } else {
                dosumpton($major,$minor,$bld,undef);
                }
            } else {
                dosumpton($major,$minor,undef,undef);
            }
        } else {
            dosumpton($major,undef,undef,undef);
        }
    }
} else {
    # Something went wrong and we should be notified about it
}