open (PULLINFO, "$exName $executables{$exName}{'flag'} |") or die("blasted cutthroats...  can't they refrain from \"$! \"-ing?");
    my @versInfo = <PULLINFO>;
    close PULLINFO;
   
    unless($versInfo[$executables{$exName}{"opLine"}]=~ /((?:\d+)(?:\.\d+)+)/
    and $executables{$exName}{"version"}= $1)
    {
        FINDFO:foreach (@versInfo)
        {
            if(/((?:\d+)(?:\.\d+)+)/){$executables{$exName}{"version"} = $1;last FINDFO;}
        }
    }