use strict;

open(DATA,"< c:\\temp.txt") || die "Sorry";
print grep (!/^>/,<DATA>);