#!perl

# sample string.  The code below could be looped as well.
# i.e. within while($string = <LMSTAT>){ }
my $string = 'Users of ClearQuest: (Total of 18 licenses issued; Total of 12 licenses in use)';

if($string =~ m/Users? of (\w+):\s+(\(.+\))/){ 
# must test for successful pattern match
# or value may mistakenly be set to previous successful match!
    my $feature =$1;
    my $usage = $2;
    my $num_used=0;
    my $num_total=0;
    my $num_queued=0;

    if($usage =~ m/(\d+)\slicenses? (in use|Used)/ # handles variations in Used Licenses
       ){ 
	$num_used=$1;
    }

    if($usage =~ m/(\d+)\slicenses? (issued|available)/ # handles variations in Total Licenses
       ){ 
	$num_total=$1;
    }

    if($usage =~ m/(\d+)\slicenses? (queued)/ # handles Queued licenses
       ){ 
	$num_queued=$1;
    }

    # more IF statements to test for queued, reserved, etc.
    
    print "lmstat output: $string\n";
    print "feature name: $feature\n";
    print "usage string: $usage\n\n";
    print "Total $feature Licenses: $num_total\n";
    print "Total $feature Used Licenses: $num_used\n";
    print "Total $feature Queued Licenses: $num_queued\n";
    my $num_free=$num_total-$num_used-$num_queued;
    print "Approximate Free $feature Licenses: $num_free\n";

} else {
    # not a "Usage" line.  Perhaps parse out
    # the USERNAMES of each used license here...

}