while (<FILE>)
{
        if(/^Users of (\w+):/)
        {
                my $line = $_;
                my $licName = $1;
                my ($totalIssued,$inUse);
                if ($line =~ /total of (\d+) licenses issued/)
                {
                        $totalIssued = $1 ;
                        print "Total : $totalIssued  \n";
                }
                if ($line =~ /total of (\d+) licenses in use/)
                { 
                        $inUse = $1 ; 
                        print "In Use : $inUse \n";
                }               
        }
}