perl -ne 'print grep /^>/, $_' sample*