Hi Guys,

I am new in perl. I have this file:-

2009-01-08 09:29:19	ABCD	MS08-001 Works Suite 2005 (KB943973)
2009-01-08 09:29:19	ABCD	MS08-001 Works Suite 2005 (KB943973)		
2009-01-08 09:29:19	BCDE	MS08-001 Works Suite 2005 (KB943973)
2009-01-09 09:29:19	FFFF	MS08-001 Works Suite 2005 (KB943973)
2009-01-08 09:29:19	ABCD	MS08-002 Works Suite 2006 (KB943974)
2009-01-08 09:29:19	ABCD	MS08-002 Works Suite 2006 (KB943974)		
2009-01-08 09:29:19	BCDE	MS08-002 Works Suite 2006 (KB943974)
2009-01-09 09:29:19	FFFF	MS08-002 Works Suite 2006 (KB943974)
ANYDATE   	        FFFF	MS08-003 Works Suite 2007 (KB943975)
and etc.....

##</code><code>##

TOTAL PATCH    DESCRIPTION            2009-01-08 2009-01-09 ANYDATE
 3    MS08-001 Works Suite 2005 (KB943973)  2            1      1
 3    MS08-002 Works Suite 2006 (KB943974)  2            1      1
 1    MS08-003 Works Suite 2007 (KB943975)  0            0      1


Data for 2009-01-08: 
ABCD	943973	MS08-001 Works Suite 2005 (KB943973)
BCDE	943973	MS08-001 Works Suite 2005 (KB943973)
ABCD	943973	MS08-002 Works Suite 2006 (KB943974)
BCDE	943973	MS08-002 Works Suite 2006 (KB943974)


Data for 2009-01-08: 
FFFF	943973	MS08-001 Works Suite 2005 (KB943973)
FFFF	943974	MS08-002 Works Suite 2006 (KB943974)


Date for ANYDATE (for example, 2008-12-08):
FFFF	943974	MS08-003 Works Suite 2007 (KB943975)