$flexlm_cmd = "lmutil lmstat -f ${product}";
#other junk
$license_cmd = "$flexlm_cmd";
      
   open LICENSES, "$license_cmd |" || die "Can't execute ($license_cmd) \n$!\n";
    
   while (<LICENSES>) 
   {
      $data_line = $_;
	  
	   # my @data = split;
		#print if grep $_ > 99, @data[1..$#data];

      if ($data_line =~ /27000 (\d+)/)
              { @license_pid = $1; }

      if ($data_line =~ /Total of (\d+) licenses issued/)
               { $max_licenses = $1; }
      
      elsif ($data_line  =~ /Total of (\d+) licenses in use/)
               { $licenses_used = $1; }
      
      elsif ($data_line  =~ /minutes \(at /)
            {
               ($JUNK, $user, $JUNK) = split (/\s+/, $data_line);
      	       $user_list ="$user,$user_list";
      }

##</code><code>##

                  
      elsif ($data_line  =~ /\, start /) 
     {
        $data_line =~ s/^\s+//g;
		print $data_line;
        ($user, $IP, $machine, $VER, $JUNK, $PID, $JUNK, $SDAY, $SDATE, $start_time) = split (/\ /, $data_line);
		$user_list ="$user,$user_list";
		$start_list ="$start_time,$start_list";
		$licenses_used++;
      }
   }

   close LICENSES;

##</code><code>##

user1 192.168.1.1 machine1 (v1.1) (flexlmserver/27000 1009), start Sat 3/30 12:53
user2 192.168.1.2 machine2 (v1.1) (flexlmserver/27000 123), start Sat 3/30 2:45

##</code><code>##

array1 = (user1,1009,12:53)
array2 = (user2,123,2:45)