Thanks for your reply. I tried writing following code but it is not printing anything on screen.
my @temp;
open(FILE,"C:\\test.txt");
@temp = <FILE>;
close(FILE);
foreach (@temp)
{
my $search =~ m/ClearQuest\: \(Total of 18 licenses issued\; Total of (\d+)/;
my $wd = $1;
print "\n$wd\n";
exit;