[Bioperl-l] Parsing the accession numbers in Refseq

[Suraj Peri]

hi , 
   I took the refseq database and parsed  only the
Accession numbers and the entries with Reviewed Refseq
by using PERL RegEX.  now i want only the accession
number preceding the REVIEWED. 
like 
ACCESSION NM_021640
COMMENT REVIEWED REFSEQ: 
lines only and not the accession numbers followed with
out comment line.
 
 how can i do this using Regular Expressions. Please
help me ASAP. 
Thank you in advance.

Example:
 ACCESSION   NM_021640
ACCESSION   NM_001158
COMMENT     REVIEWED REFSEQ: This record has been
curated by NCBI staff. The
 ACCESSION   NM_018607
COMMENT     REVIEWED REFSEQ: This record has been
curated by NCBI staff. The


__________________________________________________
Do You Yahoo!?
Yahoo! Auctions - buy the things you want at great prices
http://auctions.yahoo.com/